WCM Forum - VBA Timer (Powerpoint)

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% :aio: ) 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!