Hallo!
ich stehe vor einer scheinbar endlos langen Tabelle.
Zur weiteren Verarbeitung hätte ich diese gerne in kleinere Teile aufgeteilt.
Ein Beginn des Makros habe ich schon, indem ich die wichtigsten Parameter ermittle und festlege.
Wie viel Spalten, Zeilen und wie groß soll ein Bereich sein, sind festgelegt, bzw. ermittelt.
Bitte um Hilfe, möchte die Teile als neues Blatt in die vorhandene Datei kopieren.
Die Kopfzeile ist fix in Zeile 1
Sub TabelleAufteilen()
Dim lzz, lzs, size As Long
lzs = ActiveSheet.Cells(1, Columns.Count).End(xlToLeft).Column
lzz = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
size = InputBox("Wie viele Zeilen soll ein Teil enthalten?")
End Sub
Danke für eure Mühe, ich blicke nicht durch!
Gruß