' Globale Variable zur Speicherung der Startzeit
Dim StartZeit As Double
Dim TimerLaeuft As Boolean

Sub TimerTool_in_Minuten_Tagesuebergreifend()
    Dim EndZeit As Double
    Dim VergangeneMinuten As Double
    
    ' Prüfen, ob der Timer bereits läuft
    If Not TimerLaeuft Then
        ' Timer starten
        StartZeit = Timer
        TimerLaeuft = True
        MsgBox "Timer wurde gestartet!", vbInformation, "Timer"
    Else
        ' Timer stoppen
        EndZeit = Timer
        TimerLaeuft = False
        
        ' Falls die Endzeit kleiner ist als die Startzeit (Mitternacht-Überschreitung)
        If EndZeit < StartZeit Then
            EndZeit = EndZeit + 86400
        End If
        
        ' Differenz in Minuten berechnen (Timer liefert Sekunden)
        VergangeneMinuten = (EndZeit - StartZeit) / 60
        
        ' Ausgabe der Zeit (auf 2 Dezimalstellen gerundet)
        MsgBox "Timer gestoppt!" & vbCrLf & _
               "Vergangene Zeit: " & Format(VergangeneMinuten, "0.00") & " Minuten", _
               vbInformation, "Ergebnis"
    End If
End Sub