kann mir bitte bei folgender Aufgabestellung jemand helfen?
Ich soll die Zeilen 1-31 (step 32, inklusive dem Format)in der Tabelle "Lieferaufkleber" so oft untereinander kopieren, wie dies in der Tabelle "Eingabe" in Zelle "Start" und Zelle "Ende" eingetragen ist. Bsp.: in Zelle "Start"= 210 und in Zelle "Ende"= 220 müssen die Zeilen 1-31 11mal untereinander kopiert werden, wobei in der Zelle S11 die fortlaufende Nummer aus Start bis Ende eingetragen werden soll.
Wer kann mir bitte helfen?
Das beiliegnde Script habe ich mir aus eurem Archiv zusammengetragen aber ich bekomme nicht mal die Kopierfunktion zum Laufen, geschweige die fortlaufende Nummer einzutragen.
Private Sub CommandButton1_Click()
Dim x As Integer, a As Integer, b As Integer
Application.ScreenUpdating = False
a = Sheets("Eingabe").Range("D7")
b = Sheets("Eingabe").Range("F7")
Rows("1:31").Copy
For x = a To b Step 32
Rows(x).Insert
Next x
Application.ScreenUpdating = True
ActiveWindow.SmallScroll Down:=32
End Sub
Danke vorab für Eure/Deine Hilfe.
Gruß Andreas