Grundlagen der Programmierung mit VBA Visual Basic for

Sub StartZelle()
Dim MatrixBereich As Range
Dim Row As Long, Column As Long
Set MatrixBereich = ActiveCell.CurrentRegion
Row = MatrixBereich.Row
Column = MatrixBereich.Column
MsgBox "Startzelle(" & CStr(Row) & "," & CStr(Column) & ")"
End Sub
3.8.5 Columns- und Rows-Eigenschaften
Syntax
Columns(n)
Rows(n)
Liefert eine Sammlung mit den Spalten bzw. Zeilen eines Bereiches..
Parameter Verwendung
n n-te Spalte/Zeile des ausgewählten Bereichs
Beispiel. Zeige alle Elemente auf der Zeile des markierten Bereichs innerhalb von CurrentRegion.
Sub Zeile()
Dim GanzeZeile As Range
Dim ZeilenElement As Range
Dim ElementWert As Variant
Dim Nmber As Long
' Bestimme die Zeilennummer innerhalb des Bereichs aus der Differenz
' der absoluten Tabellenadressen von aktiver Zelle und Bereichsanfang
Number = ActiveCell.Row - ActiveCell.CurrentRegion.Row + 1
Set GanzeZeile = ActiveCell.CurrentRegion.Rows(Number).Cells
For Each ZeilenElement In GanzeZeile
ElementWert = ZeilenElement.Value
MsgBox CStr(ElementWert)
Next
End Sub
3.8.6 EntireColumn- und EntireRow-Eigenschaften
Syntax
EntireColumn
EntireRow
Liefert komplette Spalten bzw. Zeilen des ausgewählten Bereichs.
Beispiel. Markiere Spalte B.
47