VBA Timer (Powerpoint)

[heli2sky]

hallo leute!

ich hab mit vba eigentlich nix am hut, hab aber jetzt für eine powerpoint präsentation bisschen was damit herumgebastelt. die präsentation ist im wesentlichen ein formular, das direkt geändert werden kann. wichtig ist, dass die aktuelle zeit mitläuft und ständig aktualisiert wird, und das ist das problem!

ich habe es zwar geschafft, jedoch ist die lösung erstens nicht sehr elegant (cpu-belastung 100% ) und zweitens hängt sich die präsentation alle halben stunden bis stunden auf

mein code sieht derzeit so aus:

PHP-Code:

Public Sub zeit()
UTC.Font.Size = 35
UTC.Font.Bold = True
pre_stop = False
Dim Tformat

Tformat = "hh:mm:ss"
Do While (pre_stop = False)
    utc_now = Date + ((Timer / (60 * 60)) / 24) - (korr_utc / 24)
    UTC.Caption = Format(utc_now, Tformat)
    
    'Alle Labels initialisieren
    Dim duetimes As New Collection
    [...]
    
    Dim x As Integer
    Dim y As Integer
    Dim z As Integer
    num = 0
    For Each duetime In duetimes
        x = ETDs(num) / 100
        y = ((ETDs(num) / 100) - x) * 100
        new_ETD = Date + ((x + (y / 60)) / 24)
        diff = new_ETD - utc_now
        If diff > 0 Then
            duetime.Caption = Format(diff, "hh:mm")
        Else
            duetime.Caption = ""
        End If
        If new_ETD > utc_now And new_ETD < utc_now + (20 / (24 * 60)) Then 'anzahl der minuten für warnung
            duetime.BackColor = RGB(255, 120, 0)
            duetime.ForeColor = RGB(255, 255, 255)
        Else
            duetime.BackColor = RGB(255, 255, 255)
            duetime.ForeColor = RGB(0, 0, 0)
        End If
        num = num + 1
        
        If num > 10 Then
            Exit For
        End If
    Next
    
    DoEvents    ' Steuerung an andere Prozesse
            ' abgeben.
Loop
UTC.Caption = Format(utc_now, Tformat)
End Sub
Public Sub zeitstop()
    pre_stop = True
End Sub 


in der präsentation werden verschiedene flüge eingegeben und von der aktuellen zeit und der vorraussichtlichen startzeit die differenz berechnet...

ich hoffe, ihr versteht mein problem und könnt mir helfen!