Limit von DoEvents

Private Sub Button_Start_Click() Dim i, j As Integer ' Ausführung und Wiederholung des Mausclicks For i = 1 To Me.TextBox_Wiederholungen.Value DoEv Me.Move_Cursor_to SendMausklick MOUSE_LEFT Next i End Sub ' Definiert die Wartezeit zwischen Mausclicks Sub DoEv() Dim Start, Startzeit Start = Timer Startzeit = Time ' Wenn Sekunden gewählt sind If Me.OB_Sek.Value = True Then Do While Timer

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi
eine Lösung mit Application.Ontime würde so aussehen:
1. dieser Code in einem allgeminen Modul

Option Explicit
Public NächsterStart As Date
Public Anz As Long
Sub MeinMakro()
Anz = Anz + 1
If Anz

dieser Code im Modul "DieseArbeitsmappe"

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If NächsterStart > Now Then
Select Case MsgBox("Bearbeitungschleife läuft. Soll diese beendet werden?", vbYesNo +  _
vbQuestion)
Case vbYes
Application.OnTime Now, "MeinMakro", schedule:=False
Case Else
End Select
End If
End Sub

hiermit steuerst du, ob bei einem Schließen der Datei die Schleife trotzdem weiter laufen soll.
Sofern Excel nicht beendet wurde, wird ein per Application.Ontime aufgerufenes Makro auch ausgeführt, wenn die betroffene Datei geschlossen wurde (sie wird dazu wieder geöffnet, aber Excel muss laufen)
wenn das nicht passieren soll, muss man den Aufruf mit Application.Ontime zurücknehmen.
Hier dann mit Abfrage.
im Button dann nur noch dies:

Private Sub Button_Start_Click()
if Me.TextBox_Intervall.Value  "" and Me.TextBox_Wiederholungen.Value  "" AND _
(Me.OB_Sek.Value  or Me.OB_Min.Value) then
anz = 0
Call "MeinMakro"
Else
Msgbox "Bitte Anzahl und Intervall eingeben"
end if
End sub

Gruß Daniel

Hi
naja, Makros für Application.Ontime müssen in einem allgemeinen Modul stehen.
Wenn du die gleichen Variablen in mehreren Makros in verschiedenen Modulen benötigst, kannst du diese Variablen auch in einem allgemeinen Modul oberhalb der Makros als Public-Variablen deklarieren
Sie stehen dann in allen Makros des Projekts zur verfügung und behalten bei Makrowechsel dann auch ihre Werte.
wie gesagt, deine Alte Lösung würde auch funktionieren, wenn du eben nicht nur die Uhrzeit (TIMER) sondern Datum und Uhrzeit für die Prüfung verwenden würde.
Dann würde ja, wenn der Timer auf 0 zurück gesetzt wird, das Datum erhöht werden, so dass auch bei Datumswechsel weiter hochgezählt wird.
allerdings muss man den Timer dann durch die Anzahl Sekunden/Tag teilen, damit man ihn zu Date hinzuaddieren kann (in Date entspricht ein Tag mit 24 dem Wert 1)
also statt Timer immer Date + Timer / 24 / 60 / 60
dann geht auch deine alte Lösung
Gruß Daniel

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

29 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Limit von DoEvents

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

29 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread