mit Hilfe des Makrorekorders habe ich den folgenden Code erstellt, der aus einer anderen Datei, deren Pfad ich im Code vorgebe, 4 Blätter in die aktuelle Mappe kopiert. Soweit klappt es auch. Jetzt weiß ich allerdings nicht mehr weiter.
Was mir noch fehlt:
1.) dieser Teil des Codes
Move Before:= _
Workbooks("__Testdatei - 13.09.2008-4.xls").Sheets(1)
sollte variabel sein, weil die Datei auch umbenannt werden kann
2.) es müsste noch der Fehler abgefangen werden, wenn die Datei nicht gefunden wird
Sub Auswertungsblätter_holen()
Sheets("Infofenster").Visible = True
Sheets("Infofenster").Select
Application.ScreenUpdating = False
Workbooks.Open Filename:="C:\__Walter\Auswertungen.xls"
Sheets(Array("ListeEins", "ListeZwei", _
"ListeDrei", "ListeVier")).Select
Sheets("ListeVier").Activate
Sheets(Array("ListeEins", "ListeZwei", _
"ListeDrei", "ListeVier")).Move Before:= _
Workbooks("__Testdatei - 13.09.2008-4.xls").Sheets(1)
Windows("Auswertungen.xls").Activate
Workbooks("Auswertungen.xls").Saved = True
ActiveWindow.Close
Sheets("Infofenster").Visible = False
Sheets("Nachträge_auflisten").Select
Range("EK99").Select
End Sub
Wer kann helfen?
Besten Dank und Servus, Walter