Excel VBA


Eine Spalte beginnend ab A3 bis zum letzten Eintrag markieren

Sub Benutzten_Bereich_markieren()
 Dim lngLetzteZeile As Long
 lngLetzteZeile _
    = Worksheets("Tabelle1").Range("A65536"). _
    End(xlUp).Row
 ' Markieren von A3 bis An
 Worksheets("Tabelle1").Range(Cells(3, 1), _
    Cells(lngLetzteZeile, 1)).Select
End Sub