2 Makros mit zeitlicher Abarbeitung
16.09.2022 14:16:11
Fred
im Moment switche ich in Abständen von Sheet zu Sheet um dort jeweils ein Makro abarbeiten zu lassen.
Im Sheet "Live_2" aktiviere ich folgendes Makro:
Sub Live2_aktuell()
Dim w As Worksheet
Dim filterArray()
Dim currentFiltRange As String
Dim col As Integer
ThisWorkbook.Save
' Application.ScreenUpdating = False
Application.OnTime Now + TimeSerial(0, 2, 0), "Live2_aktuell"
Sheets("Live_2").Activate
Set w = ActiveSheet
w.Range("KB11").Select
Call Makro2
Call Makro3
' Application.ScreenUpdating = True
Worksheets("Live_2").Range("kn4").FormulaLocal = "=JETZT()"
End Sub
Dieses Makro wiederholt sich alle 2 Minuten.Alle 15 Minuten gehe ich nach Sheet "Auswahl" und aktiviere das Makro "Auswahl_aktuell"
Sub Auswahl_aktuell()
ThisWorkbook.Save
Worksheets("Auswahl").Range("ah7").FormulaLocal = "=JETZT()"
' Application.ScreenUpdating = True
Application.OnTime Now + TimeSerial(0, 15, 0), "Auswahl_aktuell"
Call Makro_A
Call Makro_B
End Sub
Dies wiederholt sich alle 15 Minuten.Meine Frage;
Kann ich von "Makro Live2_aktuell" irgendwie alle 15 Minuten aufrufen?
Gruss
Fred