Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1416to1420
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1416to1420
1416to1420
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

application.ontime x mal ausführen

application.ontime x mal ausführen
08.04.2015 17:46:40
Andreas

Hallo,
ich hatte folgendes versucht und keine Lösung gefunden.
Also ich möchte eigentlich ein Makro 159 mal ausführen und zwar soll es alle 30 Sekunden starten.


Sub CommandButton3_Click()
Application.OnTime Now + TimeValue("00:00:30"), "CommandButton3_Click
End Sub

Ich denke so wird es alle 30 Sekunden ausgeführt
und: 

Sub Makro_Schleife_159()
dim i as long
For i = 1 to 159
Call CommandButton3_Click
Next
End Sub

Ich weiß das es SOOO nicht funktionieren wird wollte fragen wie ich die beiden Sub's in eins bekomme oder muss ich da komplett anders dran gehen?
MfG Andreas

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: application.ontime x mal ausführen
08.04.2015 17:57:31
Hajo_Zi
Hallo Andreas,
Du brauchst nur das erste Makro. Baue noch einen Zähler ein.

AW: application.ontime x mal ausführen
08.04.2015 18:11:57
Andreas
und wie mache ich das?

AW: application.ontime x mal ausführen
08.04.2015 18:14:50
Hajo_Zi 

InZaehler=Zaehler+1
If Zaehler<30 Then
' onTim
End if


AW: application.ontime x mal ausführen
08.04.2015 18:13:25
Daniel
Hi
wenn das aufgerufene Makro sich nicht selbst aufruft, sondern nur ein einfaches Ausführungsmakro ist, dann kannst du die Startaufrufe auch in einer Schleife absetzen:
For i = 1 to 159
Application.Ontime Now + TimeSerial(0, 0, i * 30), "MakroName"
Next
teste aber erstmal mit geringerer Anzahl
um das zu stoppen müsstest du dann auch ggf alle 159 Aufrufe zurücknehmen.
wie gesagt, das aufgerufene Makro darf hier sich nicht selbst aufrufen, weil du selber die 159 Startaufrufe vorgibst.
Gruß Daniel

Anzeige
AW: application.ontime x mal ausführen
08.04.2015 18:34:25
Markus Schmid
Hallo Andreas
Wenn du folgende Prozedur in ein Standardmodul einfügst, so kannst du den gewünschten Effekt durch einmaligen Aufruf dieser Prozedur erzeugen:
Sub Makro_Schleife_15()
Static i As Integer
' 15 x in 1 Sekundenabstand ausführen
If i < 15 Then
i = i + 1
Application.OnTime Now + TimeValue("00:00:01"), "Makro_Schleife_15"
Debug.Print i, Time
Else
i = 0
Debug.Print "Fertig"
End If
End Sub
Gruss Markus

AW: application.ontime x mal ausführen
08.04.2015 18:41:39
Andreas
Ja das sieht gut aus so kann ich die Anzahl gut verändern..Danke Markus
Aber ich hab noch ein Problem: und zwar wird das makro immer nur einmal ausgeführt....

Anzeige
AW: application.ontime x mal ausführen
08.04.2015 20:23:06
Markus Schmid
Hallo Andreas
Das mit dem nur einmal ausgeführt verstehe ich nicht.
Kannst du das genauer erklären?
Mein Makro kannst du nach Ablauf aller Wiederholungen jederzeit erneut aufrufen. Es beginnt dann wieder mit i = 0. Wenn es während der vorgegebenen Anzahl Abläufe aufgerufen wird, so erhälst du zusätzliche Ablesungen, d.h., der Intervall wird verkürzt.
Dies liese sich verhindern, wenn du eine globale Boolean-Variable SchleifeAktiviert hast, die du in der aufrufenden Prozedur (z.B. Button1_Click) auf True setzt, und am Schluss beim Rücksetzen des Schleifenzählers i auch wieder auf False zurückstellst.
Das sieht dann so aus:
Option Explicit
Private Sub CommandButton1_Click()
' nur Starten, wenn noch nicht gestartet
If SchleifeAktiviert = False Then
SchleifeAktiviert = True
Debug.Print "Gestartet"
Makro_Schleife_15
End If
End Sub


Option Explicit
Public SchleifeAktiviert As Boolean
Sub Makro_Schleife_15()
Static i As Integer
' 15 x in 1 Sekundenabstand ausführen
If i < 15 Then
i = i + 1
Application.OnTime Now + TimeValue("00:00:01"), "Makro_Schleife_15"
Debug.Print i, Time
Else
i = 0
SchleifeAktiviert = False
Debug.Print "Fertig"
End If
End Sub
Gruss Markus

Anzeige

54 Forumthreads zu ähnlichen Themen

Application.OnTime - werktags?
Susanne

Hallo,
ok, mit Application.OnTime #12:06:00 PM#, "Makro" startet das Makro um 12:06 Uhr. Soweit, so gut. Was aber muß ich hinzufügen, wenn es nur Mo-Fr starten soll und nicht am Wochenende? Gibt es dafür eine Lösung?
danke!
Susanne
01.08.2009 01:25:43
Thread-ID: 1092845
5 Beiträge
Anzeige
Application.OnTime läuft auch bei anderen Dateien
Roland

Hallo,
Durch eine Steuerelement angestupst wird meine Datei alle 15 Minuten gespeichert.
Das Modul sieht so aus:
Sub Makro1() On Error Resume Next Application.OnTime EarliestTime:=datA, Procedure:="Makro2", Schedule:=False datA = Now + CDate("0:15:00") ' Hi...
06.11.2009 02:22:33
Thread-ID: 1114851
4 Beiträge
Application.OnTime aus UserForm heraus nutzen
Daniel

Hallo Forum,
ich habe eine Excel-Tabelle, die beim Starten direkt eine UserForm (Show Modal = True) startet. Diese Tabelle soll rund um die Uhr geöffnet sein. Zu 3 verschiedenen Uhrzeiten möchte ich aus der UserForm heraus eine Prozedur starten. Ist das möglich? Wenn ja, wie?
Ich hoffe,...
06.12.2010 22:20:16
Thread-ID: 1190325
8 Beiträge
Anzeige
Application.OnTime gibt beim abbrechen Error
Pepi

Hallo Zusammen
Ich benutze folgende Funktion um eine Datei periodisch zu speichern
Application.OnTime Now + TimeValue("00:15:00"), "SU_Periodisch_Speichern"
will ich aber diesen Prozess unterbrechen mit:
Application.OnTime EarliestTime:=TimeValue("17:00:00"), Procedure:="SU_Pe...
20.12.2013 14:24:44
Thread-ID: 1343227
7 Beiträge
Funktion Application onTime
Baba

HalloIch möchte täglich zu einer bestimmten Uhrzeit den wert einer Zelle auslesen und in einer anderen Zelle Speichern.ZB: [456546] Zelle A1 die ausgelesen werden soll22:00 [=A1]
23:00 [=A1]
00:00 [=A1]usw.
der wert in der Zelle ändert sich ca. alle 60 sekunden, und ich möchte zu jede...
15.07.2002 17:52:17
Thread-ID: 136765
4 Beiträge
Wie kann ich mehrere Application.OnTime stoppen?
Rene
Hallo,
ich habe ein kleines Problem mit einigen Application.OnTime ´s.
Ich habe ein Userform in den ich folgende Daten eintrage.
1 Checkbox ob aktiv oder nicht
1 Textfeld für Dateiname
3 Textfelder für die Startzeit (Format hh:mm:ss)
3 Felder wie lange die Datei ausgeführt w...
26.07.2014 07:21:10
Thread-ID: 1372418
5 Beiträge
Countdown in Zelle von Application.wait/ontime
Application.wait/ontime

Hallo,
kleine Frage zu Application.wait bzw. Application.ontime
Gibt es eine Möglichkeit das man die Zeiten als Countdown herunterzählen lässt
und dies visuell in einer Zelle darstellen kann?
theoretisch soll, immer angezeigt werden, wann die nächste
präsentation anfängt.......
26.07.2014 21:56:18
Thread-ID: 1372500
3 Beiträge
Verzögerung in Application.OnTime ???
Spenski

Hi
Ich habe 5 tabellenblätter . vom tabellenblatt 1 starte ich ein makro , das aktiviert tabelleblatt2 , nach einiger zeit tabellenblatt 3 usw.
Soll als Anzeigetafel dienen.
Was mich wundert ist das der code nicht den ablauf nimmt wie er soll ( 2,3,4,5,2,3,4,5,2usw.) sondern immer d...
11.08.2014 22:21:26
Thread-ID: 1375789
7 Beiträge

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
4
4
3
7
4
6
3
4
2
6
3
1
1
2
9
11
1
6
2
6
4
5
1
1
1