Makro automatisiert starten

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi Christian
Bitte bei Bedarf die Frage wieder auf offen stellen. Ich möchte dir lediglich ein paar allgemeine Hinweise geben.
Brauchst du die Daten wirklich im 5min. Takt obwohl du schläfst? Wer geht denn dann tanken? :)
Hier der Ansatz für die Wiederholung:


Sub Makro1()
Call Aktualisierung
' Kopiermakro
Dim ws1 As Worksheet: Set ws1 = Worksheets("Tabelle1")
Dim ws2 As Worksheet: Set ws2 = Worksheets("Tabelle3")
With ws2.Cells(ws2.Rows.Count, 1).End(xlUp).Offset(1, 0)
.Value = Now
.Offset(0, 1) = ws1.Range("P1")
.Offset(0, 2) = ws1.Range("S1")
.Offset(0, 3) = ws1.Range("T1")
End With
' Speichern wäre keine schlechte Idee
ThisWorkbook.Save
' Wiederholung in 5 Minuten
Application.OnTime Now + TimeValue("00:05:00"), "Makro1"
End Sub


Private Sub Aktualisierung()
' dein Makro
End Sub

Die Datenkrake würde ich permanent laufen lassen und nicht pro Tag eine separate Datei eröffnen.
1. Wird es kompliziert, weil um 22.30 würde der aktuelle Tag noch laufen und gleichzeitig müsste bereits die Terminierung für die neue Datei und den Folgetag gemacht werden. Damit schaffst du dir m.E. eine unnötige Komplexität und Fehleranfälligkeit.
2. Wenn du die Daten verteilst vereitelst du dir die Möglichkeit für eine übergreifende Auswertung. Vielleicht möchtest du mal auswerten wie die Entwicklung über das ganze Jahr war.
Obiges Beispiel fokussiert sich auf den 5min. Rhythmus und setzt eigenständig einen "Time-Stamp". Du kannst natürlich den Start auf eine runde Uhrzeit abstimmen, aber die Uhrzeit ganz genau zu treffen schafft m.E. erneut eine Komplexität die nicht notwendig ist. Vielleicht hast du mal kurzfristig einen Internetausfall (welcher hoffentlich im Aktualisierungsmakro abgefangen wird) und dann triffst du die Uhrzeit sowieso nicht und alles kommt "durcheinander".
cu
Chris

Hi Christian
Normalerweise legt man den Intervall fest und nicht die Uhrzeit, aber ich akzeptiere, dass die Webabfrage (mit unterschiedlicher Dauer) ein spezielle Situation darstellt. Statistisch gesehen ist m.E. beides "falsch", wenn von deutlich unterschiedlichen Wartezeiten auszugehen ist.
Extrembeispiel:
18:30 (ausgeführt um 18:34)
18:35 (ausgeführt um 18:36)
18:40 (übersprungen)
18:45 (ausgeführt um 18:49)
Dennoch würde ich die Zeitreihe löschen und mit dem Timestamp arbeiten. Eine Verschiebung in der Zuordnung wäre fatal und wenn man schon von einer speziellen Situation ausgeht, dann wäre (je nach Timeout) auch eine Überschreitung der 5 min. Wartezeit zu berücksichtigen. Zudem siehst du anhand der Zeitangabe, wie gross die Differenzen/Wartezeiten tatsächlich sind.
Ausserdem kannst du wenn du mit Timestamp arbeitest, den Prozess unabhängig von der Uhrzeit starten, was die Sache vereinfacht. Ein paar "überflüssige" Zeilen kannst du ja nachträglich manuell löschen.
Ich bin bereits im langen, excel-freien Wochenende und kann darum nicht weiter tüfteln.
https://praxistipps.chip.de/excel-uhrzeit-auf-und-abrunden_33975
Ungetestet:


Application.OnTime WorksheetFunction.RoundUp(Now()*288,2)/288, "Makro1"

cu
Chris

Public Sub Makro1() Call Benzinpreise ' Kopiermakro Dim ws1 As Worksheet Dim ws2 As Worksheet Set ws1 = Sheets("Tabelle1") Set ws2 = Sheets("Tabelle3") With ws2.Cells(ws2.Rows.Count, 2).End(xlUp).Offset(1, 0) .Offset(0, -1) = Now .Offset(0, 0) = ws1.Range("P1") .Offset(0, 1) = ws1.Range("S1") .Offset(0, 2) = ws1.Range("T1") .Offset(0, 3) = ws1.Range("B18") End With ' Speichern wäre keine schlechte Idee ThisWorkbook.Save ' Wiederholung in 5 Minuten Application.OnTime Now() + TimeValue("00:05:00"), "Makro1" End Sub

Beliebteste Forumthreads (12 Monate)

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread