Makros nacheinander starten
20.11.2007 14:50:00
edie
es wird eine neue Arbeitsmappe per XLT erstellt mit:
Workbooks.Open Filename:=ThisWorkbook.Path & "\Computer\" & "Vorlage.xlt".
Dabei soll ein Datenimport, aus einer geschlossenen Datei statt finden, mit der Prozedur "Import".
Solange die neu erstellte Datei nicht gespeichert ist, funktioniert der Import nicht.
Deshalb folgende Zeitvezögerung:
Application.OnTime Now + TimeValue("00:00:01"), "Import"
Erst wenn der "Import" fertig ist soll das Makro "Test" starten.
Wie lautet die Prozedur, dass das zweite Makro erst startet,
wenn das Erste fertig ist?
Der nachfolgende Code ist in der "Vorlage.xlt"
Private Sub Workbook_Open()
Dim Wks As Worksheet
Set Wks = Worksheets("Drucker")
If Wks.Range("A1").Value "" Then Exit Sub
If Wks.Range("A1").Value = "" Then
Application.OnTime Now + TimeValue("00:00:01"), "Import"
End If
Call Test
End Sub
Hat jemand eine Idee und kann helfen? Gibt es andere Lösungen?
Vielen Dank im Voraus.
Grüße
Anzeige