AW: noch fehlerhaft
18.08.2017 19:14:30
Matthias
Moin! Also hier mal der Code angepasst. Der Code ist jetzt nicht mehr abhängig vom Eintrag in Zelle A1. Du startest ihn mit dem StartZeitGeber und stoppst beide mit StoppenAuto. Das mit dem Stoppen kannst du bspw. auch in eine BeforeClose Prozedur packen und immer wenn die Mappe geschlossen wird, enden die Aufrufe. Nach dem Chema könntest du auch die beiden Stopps noch aufsplitten.
Option Explicit
Dim startAutoMakro As Double
Dim startEinmalig As Double
Public Sub StartZeitGeber()
startAutoMakro = Now + TimeValue("0:0:5")
Application.OnTime startAutoMakro, "AutoMakroSt"
startEinmalig = TimeValue("19:30:00")
Application.OnTime startEinmalig, "Einmalig" '2min nach 24 Uhr
End Sub
Private Sub AutoMakroSt()
Sheets("StartMacro").Cells(Rows.Count, "A").End(xlUp).Offset(1).Value = Format(Now, "hh:nn:ss")
startAutoMakro = Now + TimeValue("0:0:5")
Application.OnTime startAutoMakro, "AutomakroSt"
End Sub
Sub StoppenAuto()
On Error Resume Next
Application.OnTime startAutoMakro, "AutomakroSt", , False
Application.OnTime startEinmalig, "Einmalig", False
End Sub
Sub Einmalig()
Sheets("StartMacro").Cells(Rows.Count, "B").End(xlUp).Offset(1).Value = Format(Now, "hh:nn:ss")
End Sub
Und hier auch noch mal ein Link zum Recherchieren.
http://www.online-excel.de/excel/singsel_vba.php?f=133
Bei Fragen einfach nochmal melden.
VG