Nachricht an Josef Ehrensberger
15.11.2004 20:36:52
Thomas
Das Makro von gestern funzt tadellos, aber ich muss jeden Tag einen Plan übergeben. Hab' also das Macro kopiert und in eine Mappe "Dienstag" eingefügt.
Hier läuft es nur bis zum öffnen der neuen Datei. Danach kommt wieder der Laufzeifehler 9 ...Außerhalb des gültigen Bereichs.
Sub PlanÜbergabe()
' PlanÜbergabe Makro
' Makro am 14.11.2004 von Thomas aufgezeichnet
neuDatei = Application.GetOpenFilename
Workbooks.Open Filename:=neuDatei
Sheets("Tabelle1").Range("A1:J30").Copy _
Destination:=Workbooks("Dienstag.xls").Sheets("Tabelle1 ").Range("A1")
Sheets("Tabelle2").Range("A1:J30").Copy _
Destination:=Workbooks("Dienstag.xls").Sheets("Tabelle2 ").Range("A1")
End Sub
Für Hilfe wäre ich dankbar
Thomas