|
Hallo,
ich möchte innerhalb eines Subs 2 Schritte ausführen (siehe Code unten)
- Markiere und Kopiere Teil1 und füge es in die gewünschte Stelle ein
- Markiere und Kopiere Teil2 und füge es in die gewünschte Stelle ein
Sub meinSub()
Workbooks.Open Filename:= _
"Pfad\File.xls"
Range("F2:L369").Select
Selection.Copy
Windows("TEMPLATE.xlsm").Activate
Sheets("Sheet1").Select
Range("E10:K377").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("F370:L373").Select 'DIESE Zeilen / Spalten auswahl funktioniert nicht... :('
Selection.Copy
Windows("TEMPLATE.xlsm").Activate
Sheets("Sheet1").Select
Range("E382.K385").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False 'schließt die Zwischenablage'
Workbooks("File.xls").Close SaveChanges:=False
End Sub
Beide Teile laufen, ABER bei Teil 2 stimmt der Range("F370:L373").Select nicht. Anstelle von "F370:L373" wird der Bereich "G362:L365" kopiert???
Das Einfügen klappt an der richtigen Stelle!!!
Interessanterweise - wenn ich Teil1 aus dem Sub entferne und nur Teil2 laufen lassen, dann funktioniert der Range....
Kann mir bitte jemand sagen, was ich falsch mache???
Ich danke jetzt schon mal für die Hilfe!!!
VG, Silke
|