ontime Anweisungen beim Schliessen der Mappe beend
11.07.2004 21:04:32
mario
habe mehrere Application.OnTime Befehle in meiner Mappe.
Es sind jeweils mehrere Exeldatei geöffnet.Mein Problem,wenn
ich die Mappe schliesse öffnet sich immer wieder.Nur wenn ich Exel beende
funktioniert alles wieder perfekt.
Wie bringe ich es fertig das sich meine Mappe nicht immer wieder öffnet?
folgende makros funktioniert für ein makro,aber da sind mehrere ontime Anweisungen
Herzlichen Dank schon zum Voraus
Gruss mario
sub akt1()
On Error Resume Next
Application.ScreenUpdating = False
zeit = Now + TimeValue("00:01:00")
Sheets("buch 1").Cells(3, 2) = Now
Sheets("buch 1").Cells(3, 2) = Format(Now, "hh:mm")
Sheets("buch 1).Cells(3, 2)Application.OnTime zeit, "AKT1"
Application.ScreenUpdating = True
End Sub
Sub stopmakros()
On Error GoTo errorhandler
Application.DisplayAlerts = False
Sheets("buch 1").Cells(3, 2) = ""
Application.OnTime zeit, "akt1", , False
errorhandler:
Exit Sub
Application.DisplayAlerts = True
End Sub