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 , 33 mal gelesen