ontime haut nicht hin
10.01.2004 05:26:27
Stefan Glander
ich rufe von Datei"A" folgenden Code auf:
Private Sub CommandButton1_Click()
Workbooks.Open "DateiB.xls"
Workbooks("DateiB.xls").Activate
Worksheets(1).Activate
Application.Run ("DateiB.xls!time()")
End Sub
in Datei "B" habe ich im Modul1 folgenden Code stehen:
Private Sub test()
ActiveSheet.Range("A1") = "Ausgabetest"
End Sub
Private Sub time()
Application.OnTime Now + TimeValue("00:00:02"), "test"
End Sub
Code eingefügt mit Syntaxhighlighter 2.5
Warum haut das nicht hin ?
Gruss
Stefan Glander
Anzeige