VBA – Programmierung mit Excel Grundlagen

Benennen von Zellen und Zellbereichen
mit den Argumenten:
TEXT für den ergänzenden oder ersetzenden
Kommentartext
STARTPOSITION Position, ab der ersetzt oder eingefügt
werden soll. Wenn nicht angegeben, wird
vollständig ersetzt.
OVERWRITE logisches Argument zur Bestimmung:
Ersetzen =ja / nein
werden die Änderungen gesteuert.
Die Anweisungen:
Worksheets("Tabelle1").Range("B5").AddComment "Kein Eintrag !"
Range("B5").Comment.Text " neuer", 5, False
Range("B5").Comment.Visible = True
Range("B5").Comment.Visible = False
Range("B5").Comment.Text "Erfassen !"
Führen die folgenden Aktionen durch: (1) fügt einen Kommentar in die Zelle B5 ein, (2) fügt
ab Position 5 des Kommentars eine Zeichenkette ein, (3) macht den Kommentar permanent
sichtbar (kann im Tabellenblatt nicht per Mausklick ausgeblendet werden), (4) macht die
Aktion von (3) rückgängig, (5) ersetzt den in (1) gesetzten Kommentartext durch einen neuen
(STARTPOSITION nicht angegeben, bedeutet automatisch = 1, OVERWRITE nicht angegeben,
bedeutet automatisch =TRUE !)
10.6 Benennen von Zellen und Zellbereichen
In EXCEL – Tabellen können über die Funktionskombination EINFÜGEN / NAMEN / FESTLEGEN
einzelne Zellen oder Zellbereiche mit Namen versehen werden. Im VBA wird die
Namenszuweisung über die für RANGE – Objekte definierte Eigenschaft NAME realisiert.
Die Anweisungen:
Range("B5").Name = "MwSt"
Range("C7").Name = "Netto"
Range("D1:E5").Name = "Endwerte"
definieren Namen für Zellen bzw. Zellbereiche.
Da Namen zu der für WORKSHEET- und WORKBOOK – Objekte zugeordneten Auflistung
NAMES gehörende Objekte sind, kann für die Zuordnung eines Namens auch die ADD –
Methode benutzt werden:
ActiveWorkbook.Names.Add "Ergebnis", "=Ergebnisse!$F$7"
➨ Zu beachten ist die Angabe des zweiten Parameters: das Gleichheitszeichen und die
absolute Form der Zellbezüge müssen angegeben werden !
Bereichsnamen lassen sich nach der Zuweisung als Argumente von RANGE – Objekten
benutzen:
Sub Testen()
Range("B5").Name = "MwSt"
Range("C7").Name = "Netto"
Range("D1:E5").Name = "Endwerte"
Worksheets("Ergebnisse").Range("MwSt").Value = 0.16
Worksheets("Ergebnisse").Range("Endwerte").Value = 0
Worksheets("Ergebnisse").Range("Endwerte").Value = _
Range("MwSt").Value * Range("Netto").Value
End Sub
Die Bereichsnamen können gelöscht werden über eine Anweisung mit der Form:
Range("Endwerte").Name.Delete
Seite 77