Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 11:49:37
Array verwenden
25.04.2024 10:38:52
Bedingte Formatierung per VBA / MaxPoint
25.04.2024 10:30:04
Suche mit MINWENNS und Rückgabe mehrerer Werte
25.04.2024 09:47:49
Daten aus mehreren Dateien untereinander importieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1608to1612
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
1608to1612
1608to1612
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

application ontime nicht am Wochenende

application ontime nicht am Wochenende
18.02.2018 16:22:40
Bernd
Hallo Excel-VBA Gemeinde!
Ich bräuchte bitte ein paar Zeilen VBA Code von Euch.
Ich möchte ein Makro mit dem Namen Timer mit einem Application.Ontime-Befehl nicht mehr am Wochenende bzw. nicht mehr an Feiertagen ausführen, ansonsten aber an jedem anderen Tag.
Zur Zeit verwende ich folgenden einfachen Code:
Application.Ontime TimeValue("17:00:00"), "Start_Makro"
Zur Zeit rufe ich am Ende eines Makros "Start_Makro" mit dem Befehl call "Timer" mein Makro mit dem Namen "Timer" auf, damit am nächsten Tag zu einer bestimmten Uhrzeit das Marko "Start_Marko" wieder startet. Da das auch am Wochenende passiert, führt das dann aber zu Fehlermeldungen.
Eine erste Verbesserung wäre also, wenn am Freitag das Makro call Timer so programmiert wäre, dass das Makro "Start_Makro" erst am Montag um 17:00:00 wieder startet.
Die Krönung wäre dann noch, wenn ich zusätzlich auch an Feiertage, die ich mit Variablen von Feiertag_1 bis Feiertag_10 für das Jahr 2018 von Hand definieren würde, auch an diesen Tagen das Makro dann nicht mehr ausgeführt werden würde.
Vielen Dank vorab für Eure Hilfe...
Ich hoffe, ihr könnt mir helfen...

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

Betreff
Datum
Anwender
Anzeige
AW: application ontime nicht am Wochenende
18.02.2018 16:24:13
Hajo_Zi
überprüfe im Makro "Start_Makro" den Tag, Du hast ja in der Datei eine Tabelle mit den Feiertagen.

AW: application ontime nicht am Wochenende
18.02.2018 16:38:34
Bernd
Hallo Hajo,
ich vermute, dass ich folgendes programmieren soll:
If Tag_aktuell = Freitag (wie Frage ich im Makro ab, ob das Datum ein Freitag ist?), then
call Timer erst am Montag (wie sage ich im application ontime befehl, dass er erst in drei Tagen wieder das Makro starten soll, irgendwie mit Tag_aktuell + 3?
Bei den Feiertagen wird es ja noch komplizierter...oder ich stehe auf dem Schlauch...
AW: application ontime nicht am Wochenende
18.02.2018 16:42:48
Hajo_Zi 

Du willst ja Wochende ausschließen.
MsgBox Weekday(Date, 2) > 5
Feiertage benutze Find.
Set Rafound1 = Columns(1).Find(cdbl(Date), Range("A" & Rows.Count), xlFormulas, _
xlWhole, , xlNext)
If Not Rafound Is Nothing Then

Gruß Hajo
Anzeige
AW: application ontime nicht am Wochenende
18.02.2018 16:48:22
Bernd
Hallo
o.k - vielen Dank, den Rest sollte ich dann alleine hinbekommen...
AW: application ontime nicht am Wochenende
18.02.2018 16:51:34
Sepp
Hallo Bernd,
Sub startMakro()
Dim nextRun As Date, varHolidays As Variant

varHolidays = Array("1.1.2018", "6.1.2018", "1.4.2018", "2.4.2018") 'Feiertage 

nextRun = Date + 1

Do While Weekday(nextRun, vbMonday) > 5 Or IsNumeric(Application.Match(CStr(nextRun), varHolidays, 0))
  nextRun = nextRun + 1
Loop

Application.OnTime nextRun + TimeValue("17:00:00"), "Start_Makro"
End Sub


VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media
Code erstellt und getestet in Office 16 - mit VBAHTML 12.6.0
Gruß Sepp

Anzeige
AW: application ontime nicht am Wochenende
18.02.2018 17:02:14
Bernd
Hallo Sepp,
super, vielen Dank!!
Bernd

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
Anzeige

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
7
3
1
1
2
9
11
1
2
6
4
5
1
1
1