mit untem stehenden Makro kopiere ich einen Tabellenbereich in eine
andere Mappe. Dieses funktioniert allerdings nur, wenn ich die Zielmappe
vorher öffne.
Was ist hier nicht richtig?
Ziel.Activate
scheint nicht zu funktionieren.
Auch möchte ich nachdem Kopieren die ZielMappe automatisch speichern,
Ziel.Saved = True
klappt auch nicht.
Könnt ihr mir hierbei unter die Arme greifen ;-))
Dankeschön
Gruss Heribert
Sub uebertragen()
Dim Quelldatei, Zieldatei As Worksheet
Dim Quelle, Ziel As Workbook
Set Quelle = ActiveWorkbook
Set Ziel = Workbooks("testmappe")
'Ziel.Activate
Set Quelldatei = Worksheets("GesPlan")
Set Zieldatei = Ziel.Worksheets("test")
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Quelldatei.Range("A16:R382").Copy
With Zieldatei.Range("A16")
.PasteSpecial Paste:=xlValues
.PasteSpecial Paste:=xlFormats
End With
Application.CutCopyMode = False
Application.ScreenUpdating = True
Application.DisplayAlerts = True
Ziel.Saved = True
Ziel.Close
End Sub