Sehr flüssiger Ablauf der Label Verkleinerung auf Userform

Forumthread: Sehr flüssiger Ablauf der Label Verkleinerung auf Userform

17.09.2025 17:34:20

Dieter(Drummer)

Guten Tag an alle.

Bisher konnte ich keine VBA Variante finden, die ein Label auf der Unserform sehr flüssig verklienert, also ohne sichtbare Zeitverzögerungen der Schritte der Verkleinerung.
Habe jetzt ich eine Variante gefunden, die einen sehr flüssigen Verkleinerungsablauf zeigt. Klick auf Commandbutton oder auf Unserform.

Habe statt:

Application.Wait (Now + TimeValue("00:00:001") + zeitintervall / 86400)

diese Variante genommen:

Call Sleep(1) 'Beste Variante

Klappt perfekt.

Da evtl. auch andere an der Variante interessiert sein könnten, stelle ich meine Musterdatei hier ins Forum.

Mit Gruß,
Dieter(Drummer)

Musterdatei:
https://www.herber.de/bbs/user/178921.xlsm

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Sehr flüssiger Ablauf der Label Verkleinerung auf Userform

17.09.2025 22:03:23

Yal

Hallo Dieter,

Du kannst auch deinen eigenen, relativ präzise Verzögerer bauen:

Sub WarteKurz(Millisek As Long)

Dim t As Double

Dim Fallschirm As Long 'um den Risiko eine Endlosschleife zu entgehen



    t = Timer + Millisek / 1000

    Do

        DoEvents

        Fallschirm = Fallschirm + 1

    Loop While Timer  t And Fallschirm  100000

End Sub





Sub test()

Dim i

    For i = 1 To 10

        Debug.Print i, Timer

        WarteKurz 250

    Next

End Sub

Wegen alles was in dem "DoEvents" passieren kann, ist es nicht sicher, dass die nächste Anweisung auf die Millisekunde genau ausgeführt wird. DoEvents ist aber notwendig, falls die gesamte Verarbeitung langer dauern soll: DoEvents verhindert, dass die CPU-Leistung auf 100% geht.

Für mehr Info über Timer, siehe bitte die Onlinehilfe. U.a. um das Endlosschleife-Risiko zu verstehen.

VG
Yal

AW: Sehr flüssiger Ablauf der Label Verkleinerung auf Userform

18.09.2025 14:39:08

Dieter(Drummer)

Danke Yal für Info und Code.

Ist bestimmt eine gute Lösung und ich werde mich damit beschäftigen.

Danke nochmal und Gruß,
Dieter(Drummer)

AW: Sehr flüssiger Ablauf der Label Verkleinerung auf Userform

18.09.2025 17:48:32

Dieter(Drummer)

Danke Yal,

klappt perfekt. Nutze es für Label verkleinern oder vergrößern.

Gruß,
Dieter(Drummer)

Sehr flüssiger Ablauf der Label Verkleinerung auf Userform

Forumthread: Sehr flüssiger Ablauf der Label Verkleinerung auf Userform

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Sehr flüssiger Ablauf der Label Verkleinerung auf Userform

Forumthread: Sehr flüssiger Ablauf der Label Verkleinerung auf Userform

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread