Wait-Befehl nach Öffnen einer Datei
14.05.2009 11:05:07
Rico
Es soll eine Wertekopie in eine andere zu Öffnende Arbeitsmappe eingefügt werden. Per Einzelschritt funktioniert die Befehlskette, allerdings nicht, wenn es über den CommandButton aufgerufen wird. Ich denke das die zu Öffnende Datei noch nicht bereit ist um den nächsten Befehl aus zu führen.
Wie baue ich denn da eine Wartezeit ein. Also vor Cells.Select
Für Infos wäre ich sehr dankbar
Gruß
Rico
Private Sub CommandButton1_Click()
Workbooks.Open Filename:="I:\XXXXXXX\XX ÜBERSICHT 2009.xls"
Cells.Select
Selection.Delete Shift:=xlUp
Range("A1").Select
Windows("Neue Mappe 2009.xls").Activate
Cells.Select
Selection.Copy
Windows("XX ÜBERSICHT 2009.xls").Activate
Cells.Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Range("F4").Select
ActiveWindow.FreezePanes = True
Application.CutCopyMode = False
ActiveWorkbook.Save
ActiveWindow.Close
Range("A1").Select
End Sub