VBA – Programmierung mit Excel Grundlagen

Relative Positionierung auf Zellen und Zellbereiche
• Berechnete Zellindizes
Die numerische Form der Indizierung in der CELLS – Eigenschaft macht, wie schon oben
erwähnt, Berechnungen von Indizes möglich:
Sub Testen()
Dim i As Integer
For i = 1 To 5
Worksheets(1).Cells(i + 2, i).Value = 233
Next
End Sub
➨ Ist das Ergebnis bei der Berechnung eine Dezimalzahl, werden die Werte vor der
Zuweisung ab- oder aufgerundet.
• Kombinationen von Cells und Range
Durch die Kombination von CELLS und RANGE ist es möglich, Zellbereiche mittels
berechneter Indizes zu adressieren:
Sub Testen()
Dim i As Integer
For i = 5 To 7
Worksheets(1).Range(Cells(2, 2), Cells(i + 2, i)).Interior.Pattern = 2
Next
End Sub
Die Anweisungen dieses Beispiels belegen den Zellbereich B2:G9 mit einem Muster. Der
Startwert ist fest vorgegeben (Cells(2,2) = Zelle B2), das zweite Argument der RANGE –
Methode wird berechnet.
9.2 Relative Positionierung auf Zellen und Zellbereiche
Für die relative Positionierung innerhalb eines Tabellenblattes muß zuerst eine
Ausgangsposition (Startposition) festgelegt werden. Ausgangsposition ist in den meisten
Fällen ein aktives Objekt.
Dazu muß ermittelt werden, welches Objekt aktuell aktiv ist. Für die relative Positionierung
auf Zellen oder Zellbereiche handelt es sich i.d.R. um die Objekte Zelle, Tabellenblatt,
Fenster und Arbeitsmappe, die über die folgenden Zugriffseigenschaften ermittelt werden
können:
ACTIVECELL Aktive Zelle (Range – Objekt)
ACTIVESHEET Aktives Tabellen- oder Diagrammblatt (Worksheet – Objekt)
ACTIVEWINDOW Aktives Fenster (Window – Objekt)
ACTIVEWORKBOOK Aktive Arbeitsmappe (Workbook – Objekt)
Insbesondere bei Aktionen, die von aktiven Zellen ausgehen, müssen oft zusätzlich noch die
Zeilen- und Spaltenindizes ermittelt werden. Dieses ist über die Row- und Column –
Eigenschaften des Zellobjekts möglich:
ActiveCell.Row
ermittelt den Zeilenindex einer aktiver Zelle
ActiveCell.Column
ermittelt den Spaltenindex einer aktiver Zelle
Seite 71