' verschiebt Datenblöcke einer Liste in jeweils eigene Spalten
Sub Makro1()
' gibt an, in welcher Spalte sich die Daten befinden
spalte = "A"
' gibt die oberste Zeile an, in der sich Daten befinden
startzeile = 1
' gibt die Anzahl Zeilen pro Block an (inklusive Leerzeilen)
anzahl = 25
' gibt an, in welche Spalte der oberste Block verschoben werden soll (als Zahl!)
zielspalte = 1
' gibt an, in welche Zeile die obersten Zellen der einzelnen Blöcke verschoben werden sollen
zielzeile = 0
zaehler = 0
Do While IsEmpty(Range(spalte + CStr(zaehler * anzahl + startzeile))) = False
Range(Cells(zielzeile, zielspalte), Cells(zielzeile + anzahl, zielspalte)) = Range(spalte + CStr(zaehler * anzahl + startzeile) + ":" + spalte + CStr(zaehler * anzahl + startzeile + anzahl))
zaehler = zaehler + 1
zielspalte = zielspalte + 1
Loop
End Sub
Beim Zuweisen des Ranges tritt der Laufzeitfehler 1004 auf, dasselbe passiert auch, wenn ich die Funktion Copy oder Cut benutze.
Viele Grüße und schonmal Danke
Nightwolf