Pause Funktion funktioniert auf einmal nicht mehr

Hallo zusammen,

folgende Funktion hat die ganze Zeit funktioniert:
Sub Zeittotschlagen2()
i = Timer
Do While Timer

folgende Funktion hat die ganze Zeit funktioniert:
Sub Zeittotschlagen2()
i = Timer
Do While Timer unter Option Explicit oder anderem *gg*

Im Code dann einfach

Sleep 985

Die zahlen sid Millisekunden.

Gruß
Reinhard

Wenn ich die ganze funktion in ein Modul frachte statt auf dem
Tabellenblatt funktioniert sie dann wieder.

Das geht jetzt nachdem ich meine ganzen Subs vom Tabellenblatt in Module verfrachtet habe auch nichtmehr.

Welche Excelversion? Immer angeben!

2003

Warum benutzt du nicht endlich Option Explicit?

Die benutze ich, habe nur vergessen die mit reinzukopieren weil die ganz oben steht mit dem ganzen Dim das und Dim jenes.

Und normaler Code gehört in ein Standardmodul, mag er auch in
anderen Modulen funktionieren. Okay, kann man vllt. drüber
diskutieren.

Hab jetzt alles bis auf 3 kleine Subs die über steuerelemente auf dem Blatt laufen in Module gepackt.

Wie auch immer, Fehleer ist in Excel2000 nicht
nachvollziehbar, egal ob der Code in Modul1 oder tabelle1
steht.

Brauchst du unbedingt das DoEvents in der Warteschleife?

Habs versucht mit der Sleep Funktion, dann funktioniert aber alles nciht mehr wie es soll da es ohne dieses do events nicht klapt.

Das ist der totale Käse, erst funktioniert alles wie geschmiert und auf einmal ohne das ich die Pausieren Funktion angefasst habe ist Schicht im Schacht und krieg das auch nicht mehr korrigert.
Wenn du oder wer anders weiß wieso diese Funktion:
Option Explicit
Zeit As Double
Sub Zeittotschlagen2()
Zeit = Timer
Do While Timer

Hallo Dr.,

Wenn ich die ganze funktion in ein Modul frachte statt auf dem
Tabellenblatt funktioniert sie dann wieder.

Das geht jetzt nachdem ich meine ganzen Subs vom Tabellenblatt
in Module verfrachtet habe auch nichtmehr.

dann mache eine Kopie deiner Mappe, lösche, anonymisere, verkleinere Zelleninhalte, Blätter.
Wichtig ist einzig daß der Fehler erhalten bleibt.
Hochladen mit file-upload, s. FAQ:2606

Warum benutzt du nicht endlich Option Explicit?

Die benutze ich, habe nur vergessen die mit reinzukopieren
weil die ganz oben steht mit dem ganzen Dim das und Dim jenes.

Also ist i global deklariert. Grundsätzlich sollte man globale Variablen vermeiden. Auch wenn sie auf dem ersten Blick scheinbar Vorteile bieten.
Ich sehe hier auch keinen Sinn i global zu deklarieren.

Und normaler Code gehört in ein Standardmodul, mag er auch in
anderen Modulen funktionieren. Okay, kann man vllt. drüber
diskutieren.

Hab jetzt alles bis auf 3 kleine Subs die über steuerelemente
auf dem Blatt laufen in Module gepackt.

Das ist korrekt so.

Brauchst du unbedingt das DoEvents in der Warteschleife?

Habs versucht mit der Sleep Funktion, dann funktioniert aber
alles nciht mehr wie es soll da es ohne dieses do events nicht
klapt.

Okay, kann man erstmal nix dran ändern

Wenn du oder wer anders weiß wieso diese Funktion:
Option Explicit
Zeit As Double
Sub Zeittotschlagen2()
Zeit = Timer

Timer ist vom Typ Single, korrigiere das beim Dim.

Gruß
Reinhard

dann mache eine Kopie deiner Mappe, lösche, anonymisere,
verkleinere Zelleninhalte, Blätter.
Wichtig ist einzig daß der Fehler erhalten bleibt.
Hochladen mit file-upload, s. FAQ:2606

http://www.file-upload.net/download-3063778/FunztNic…

Da ist der Unhold. Hab so gut wie alles andere rausgelöscht. Einfach aufs Modul b_Pause gehen die Sub da anklicken und F5 oder F8 drücken und dann wundern.
Ich benutze Excel 2003.

Danke im Vorraus.

ich bin so blöde… ich hab den Fehler selber gefunden… hab den timer später nochmal für ne andere Sache als Byte deklariert…

alles klar bei mir gehts jetzt weiter, sorry für die Arbeit wegen sonem ollen Kackfehler ^^