Hallo Hajo,
das ist sehr lobenswert, dass du nicht einfach auf andere Rechner schaust. ;-)
Also die Frage war eigentlich mehr allgemein gemeint, ob es da Probleme geben kann.
Aber ich schick dir mal ein Beispiel:
Hier am Besipiel Beep:
Sub Beep()
Static counter As Integer
counter = counter + 1
NextTime = Now + TimeValue("00:02:00")
Beep
Call Msgbox_OnTime
If counter < 12 Then
Application.OnTime NextTime, "Beep"
Else
counter = 0
End If
End Sub
In der Zeile "NextTime..." schmeißt er mir die Fehlermeldung "Laufzeitfehler 13"
Typen unverträglich raus.
Ist kein Blattschutz drin (Blattschutz über Extras/Schutz/Blatt schützen/Kennworteingabe) geht das ganze aber wunderbar.
Vielleicht kannst du jetzt mehr damit anfangen?!?
Ich danke Dir und allen anderen natürlich auch.
Liebe Grüße,
Martin
geschrieben von
MartinP2
,
04.11.2005, 11:02 Uhr
, 28 mal gelesen