Alle Daten befinden sich in Spalte B. Ich müsste jetzt Spalten von links nach rechts füllen.
Und es sollte immer eine Spalte überspringen.
Die Reihenfolge sollte sein, Spalte:
B D F H J L N P R T
und dann die nächste Zeile von vorne.
Als Anfänger habe ich folgendes gemacht. Man müsste das aber irgendwie in eine Schleiffe packen:
"
Dim lrow As Long
lrow = Range("B" & Rows.Count).End(xlUp).Row
Range("B2:B" & Range("B" & Rows.Count).End(xlUp).Row).Cut
Range("D1").Select
ActiveSheet.Paste
Range("D2:D" & Range("D" & Rows.Count).End(xlUp).Row).Cut
Range("F1").Select
ActiveSheet.Paste
"
usw...
Danke für Eure Hilfe