Ich suche folgendes:
Habe ein UF mit der Textbox1. Hier soll eine Zahl eingegeben werden.
Nun möchte ich nach klick auf CommandButton1 das im Vorlagenblatt Vorlage die Spalte A markiert und kopiert wird und zwar auf Tabellenblatt 3 beginnend ab nächster leerer Spalte , die im Zwischenspeicher liegende Kopie von Vorlage so oft kopiert wird wie in Textbox 1 steht.
Das kopieren und einfügen ist nicht das Problem, sondern eher das, wie ich meinen Code dazu bringe ihn so oft auszuführen, wie er in Textbox 1 steht.
Mit diesem Code füge ich meine Spalte 1x ein:
Dim x As Long
Worksheets("03_VORLAGE2").Select
Range("A:A").Copy
Sheets("04_VORLAGE3").Select
x = Cells(2, Columns.Count).End(xlToLeft).Column + 1
Cells(2, 3).Select
Cells(x).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Wie muss ich das machen das der Code so oft ausgeführt wird, wie es in der Textbox steht?
Greetz Gerhard