Vielen Dank
Gruß John
Hallo John
versuchs mal so:
(Dauert aber ne weile bis der code durchgelaufen ist)
Public Sub test()
Dim start As Long
Dim ende As Long
Dim zeile As Long
Dim bereich As Range
start = Application.InputBox(prompt:="Erste Zeile", Type:=1)
ende = Application.InputBox(prompt:="Letzte Zeile", Type:=1)
Set bereich = Rows(start)
For zeile = start To ende Step 5 'jede 5te
Set bereich = Union(bereich, Rows(zeile))
Next
bereich.Select
End Sub
ransi