VBA – Programmierung mit Excel Grundlagen

Seite 72
Tabellennavigation
✘ Wird diese Methode auf einen Zellbereich angewandt, können die Indizes der obersten
Zeile und der äußerst linken Spalte des Zellbereichs ermittelt werden:
Range("B3:C5").Row ergibt 3
Range("B3:C5").Column ergibt 2
Mit so ermittelten Positionen kann relativ positioniert werden:
Cells (ActiveCell.Row + 7, ActiveCell.Column - 1).Value = "Gesamt: "
Auch die im Kap. 7.2 vorgestellte OFFSET – Methode kann bei der relativen Positionierung
geeignet. In der Sub:
Sub Testen()
Dim i As Integer
For i = 1 To 3
ActiveCell.Offset(i + 2, ActiveCell.Column).Interior.Pattern = 2
Next
End Sub
werden beispielsweise bei aktiver Zelle C3 die Zellen F6:F8 mit einem Muster belegt.
(Näheres zu OFFSET – siehe Kap. 7.2).
9.3 Zugriff auf Tabellenblätter und Arbeitsmappen
Sobald Operationen auf Zellen oder Zellbereichen nicht im aktiven Tabellenblatt oder eienr
aktiven Arbeitsmappe ablaufen sollen oder das aktive Tabellenblatt oder Arbeitsmappe nicht
genau bekannt sind, wird es nötig sein, eines der Elemente selbst zu bestimmen.
• Zugriff auf Tabellenblätter
Für die Auswahl eines Tabellenblattes gibt es im VBA zwei Alternativen:
1. Auswahl über den Index des Worksheets – Objekts Tabellenblatt
2. Auswahl über den Namen des Worksheets – Objekts
Alternative 1
Der Index eines Tabellenblattes ist die relative Position des Tabellenblattes in der
Worksheets – Auflistung.
Worksheets(3).Cells(3,5).Value = 5
setzt den Wert 5 in die Zelle E3 des dritten Tabellenblattes der aktiven Arbeitsmappe ein.
✘ Beim Zugriff über den Indexwert ist Vorsicht geboten: wird im Programm ein
Tabellenblatt gelöscht, eingefügt oder verschoben, verändern sich die Indexwerte der
Tabellenblätter in der Worksheets – Auflistung.
✘ Die Indexwerte der Tabellenblätter können in Schleifenkonstrukten benutzt werden,
wenn mehrere Tabellenblätter einer Arbeitsmappe gleichen Operationen unterzogen
werden sollen:
Sub Testen()
For n = 1 To Worksheets.Count
Worksheets(n).Cells(2, 2).Formula = "=A1*0.5"
Next
End Sub