Auf "neuDatei" zurückwechseln
14.11.2004 21:59:42
Thomas
Mit dem Macro funzt es bis zu der Stelle wo die "neuDatei" ein zweites mal aufgerufen wird,(mit xxx markiert) um die zweite Tabelle zu kopieren.
Bin föllig ratlos, darum dieser Hilferuf.
Sub PlanÜbergabe()
' PlanÜbergabe Makro
' Makro am 14.11.2004 von Thomas aufgezeichnet
neuDatei = Application.GetOpenFilename
Workbooks.Open Filename:=neuDatei
Sheets("Tabelle1").Select
Range("C5:D5").Select
Selection.Copy
ActiveWindow.WindowState = xlNormal
Windows("Montag.xls").Activate
Range("C5:D5").Select
ActiveSheet.Paste
xxx Windows("neuDatei.xls").Activate xxx
An dieser stelle gibt es die Fehlermeldung: "Außerhalb des Gültigen Bereichs"
Sheets("Tabelle2").Select
Range("C10:D10").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Montag.xls").Activate
Sheets("Tabelle2 ").Select
Range("C10:D10").Select
ActiveSheet.Paste
End Sub
Info: Die Bestehende Datei Montag.xls darf nicht größer werden als die zwei Tabellenblätter, da diese mit einem MDA Syncronisiert wird.
Herzlichen Dank an alle Helfer !!!
Bin gespannt auf alle Antworten