Markierte Excel Zeilen in ein neues Sheet kopieren
Christoph
möchte von einem Excel Sheet jede fünfte markierte Zeile in ein anderes / neues Excel Sheet kopieren, jedoch habe ich bisher keine Lösung gefunden die funktioniert, kann mir hier jemand weiterhelfen? Unten habe ich ein mein Makro angehängt, mit dem die Zeilen markiert werden.
Thx. Timo
-------- Excel Makro ------
Code:
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
Anzeige