Hallo,
ich habe nachfolgendes Makro aufgezeichnet für 2 Zeilen. Nun möchte ich, dass es sich für alle anderen Zeilen (die Datei hat ca. 2000) ebenfalls ausgeführt wird. Also einmal Datei Test öffnen, jede 5. Zeile aus Datei 1 in jede 6. Zeile (ohne Formeln) kopieren und die 1. Datei wieder schließen. Kann ich das irgendwie in einer Schleife machen?
Danke im Vorraus
Sheets(„Tabelle1“).Select
ChDir „C:\Rieck\Computer1\Testdatei“
Workbooks.Open Filename:= _
„C:\Rieck\Computer1\Testdatei\Test.xls“
Range(„H9:smiley:C9“).Select
Selection.Copy
Windows(„Test_1.xls“).Activate
Range(„G7“).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteComments, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Windows(„Test.xls“).Activate
Range(„H14:smiley:A14“).Select
Application.CutCopyMode = False
Selection.Copy
Windows(„Test_1.xls“).Activate
Range(„G13“).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteComments, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Range(„B3“).Select
Windows(„Test.xls“).Activate
ActiveWindow.Close