Mehrere Zeilen markieren
14.03.2004 18:19:10
Burghard
Ich habe in einer Tabelle auch einige versteckte Zeilen. Das untere Makro geht zur ersten wieder sichtbaren Zeile und markiert dort die Zeile.
Ich möchte aber nicht nur die aktive, sondern auch die nächsten drei Zeilen ebenfalls mit markiert haben. Krieg das einfach nicht hin.
Schönen Gruß, Burghad
Sub Zeilen_markieren()
Dim i As Long
i = 6
Do While Cells(i, 1).EntireRow.Hidden
i = i + 1
Loop
Cells(i, 1).Activate
Rows(ActiveCell.row).Activate
' Hier geht das Problem los. Ich kann nicht die nächsten drei Zeilen mitmarkieren.
End Sub