Hallo,
folgendes Problem ich möchte unten die Anweisungen wiederholen (zeile kopieren + Wert einfügen)
Die Werte sollen immer in Zeile 2 eingefügt werden.
Und es sind 17000 Zeilen die kopiert werden müssen.
Nach jedem einfügen der Werte muss eine Speicherung des Beipiels gemacht werden.
Das Beispiel darf nicht überschrieben werden sonder eine Zahl dranbekommen
Hoffe ich hab es einigermaßen Verständlich erklärt
Mit freundlichen Grüßen
Alex
Sub AutoFomular()
'Tabelle öffnen
Workbooks.Open "C:\Users\Windows 10\Desktop\Beispiel_bearbeitet.xlsx"
'Fomular öffnen
Workbooks.Open "C:\Users\Windows 10\Desktop\Probe überarbeitet.xlsx"
'Anweisung wiederholen
Dim i As Integer
i = 0
While i <> 3
MsgBox "While-Schleife: " & i
i = i + 1
'Zeile kopieren
Rows("3").Select
Selection.Copy
'Werte einfügen
Rows("2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
|