Verzögerung in Application.OnTime ???

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi
überarbeite erstmal deinen Code.
das wichtigste wäre, Option Explicit zu aktivieren und zu prüfen, ob du nicht einen Variablenfehler drin hast.
Es muss zwar nicht sein, dass das die Ursache ist, aber einen Code der nicht mit Option Explicit erstellt wurde, werde ich nicht auf Fehler untersuchen.
Warum und wieso steht hier:
http://www.online-excel.de/excel/singsel_vba.php?f=4
ausserdem ist der Code zu komplex.
Warum teilst du das Einblenden und das Aufrufen des nächsten Einblendens in zwei Makros auf?
das halbiert die Anzahl der Makros.
im Prinzip sollte ein Makro für die Schleife reichen (Makros können sich auch selbst aufrufen) und dann noch eines fürs Starten und eines fürs Stoppen:

Option Explicit
Public t As Boolean
Public Zeit As Date
Sub start()
t = True
Schleife
End Sub
Sub Schleife()
Static i As Long
Sheets(i + 2).Select
i = (i + 1) Mod 4
If t Then
Zeit = Now + TimeSerial(0, 0, 5)
Application.OnTime Zeit, "Schleife"
End If
End Sub

um abzusichern, dass sich die Datei nicht wieder öffnet, fall jemand die Datei schließt, ohne die Schleife zu stoppen, brauchst du noch folgenden Code im Modul "DieseArbeitsmappe"

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Zeit > Now Then Application.OnTime Zeit, "Schleife", schedule:=False
End Sub

Gruß Daniel

hallo Daniel...das sollte der verzeweifelte versuch werden mal was selber zu machen.
hab jetzt den code genommen den du gepostet hast und noch eine if t then abfrage eingebaut, damit wenn in der schleife t auf false gesezt wird nicht nochmal das blatt gewechselt wird...das sollte auch der sinn meiner vielen codes sein.
Option Explicit
Public t As Boolean
Public Zeit As Date


Sub start()
t = True
Schleife
End Sub

Sub Schleife()
Static i As Long
If t Then
Sheets(i + 2).Select
i = (i + 1) Mod 4
If t Then
Zeit = Now + TimeSerial(0, 0, 5)
Application.OnTime Zeit, "Schleife"
End If
End If
End Sub

wenn ich tabellenblatt 1 activiere wird t auf false gesetzt


Private Sub Worksheet_Activate()
t = False
End Sub

dank dir für deine tipps und den link
gruss
christian

Beliebteste Forumthreads (12 Monate)

Verzögerung in Application.OnTime ???

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

54 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Verzögerung in Application.OnTime ???

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

54 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread