VBA - Warten bis Datei geöffnet
24.10.2006 08:03:51
marc81
ich habe schon ausgiebig im Forum gesucht, aber leider keine Lösung für mein Problem gefunden.
Ich habe ein Makro das eine Datei öffnet und anschließend die Fenster horizontal anordnet. Mein Problem ist jetzt, dass mein Makro nicht wartet bis die Datei geöffnet ist, und somit auch die Fenster nicht anordnet weil nur eine Datei geöffnet ist wenn das Makro durchläuft.
Hier ist der Code:
Sub naechste_KW()
ActiveWorkbook.Sheets(Sheets.Count).Copy _
After:=ActiveWorkbook.Sheets(Sheets.Count)
ActiveWorkbook.Sheets(Sheets.Count).Name = _
"KW" & Sheets.Count + 1
Range(Range("A65536").End(xlUp).Offset(1, 3), "H3").ClearContents
Range("D3").Select
'Hier öffnet er jetzt meine andere Datei
Workbooks.Open FileName:= _
"D:\Dürr\Formulare\Stunden-Berechnung\Stunden-Berechnung_2006.xls"
'und hier müsste er warten, bis die Datei dann tatsächlich offen ist
Windows.Arrange ArrangeStyle:=xlHorizontal
End Sub
Vielen Dank schon mal!
Grüße Marc