Zelle mehrfach kopieren ...
18.01.2006 08:33:54
Torstenb
Folgender Code kopiert jede 4. Zeile in eine andere Tabelle untereinander:
Option Explicit
Public
Sub JedeVierte()
Dim letzteblatt1 As Long
Dim letzteblatt2 As Range
Dim L As Long
letzteblatt1 = Range("A65536").End(xlUp).Row
For L = 1 To letzteblatt1 Step 4
Set letzteblatt2 = Sheets("Tabelle2").Range("A65536").End(xlUp).Offset(1, 0)
Rows(L).Copy letzteblatt2
Next
End Sub
Klingt jetzt zwar komisch, wird aber so gebraucht. Jede Zeile, die in die neue Tabelle kopiert wurde, soll hier vier mal untereinander erscheinen. Es müsste also offenbar noch eine innere Schleife hinein.
Bei allen Versuchen, die ich gemacht habe kam nur Unsinn raus.
Wie kann ich`s am besten angehen?
Torsten
Anzeige