Kategorie: Code-Snippets

Hallo,

manchmal erstellt man Makros, welche eine etwas längere Laufzeit haben. Um dem Anwender mitzuteilen, dass die gestartete Aktion noch läuft benutze ich gerne eine Fortschrittsanzeige. Diese Anzeige besteht lediglich aus einer Userform mit den entsprechenden Methoden und Steuerelementen.

Die Userform kann hier heruntergeladen werden: Download

Beispielhaft noch die Verwendung der Progressbar:

Option Explicit

Public Sub test_Progress()
    Dim prgBar As New frmProgress
    With prgBar
        .Title = "Fortschritt"
        .Text = "Bearbeite Daten, bitte warten.."
        .Min = 0
        .Max = 100
        .ShowPercent = True
        .Show vbModeless
    End With

    Dim i As Integer
    For i = 0 To 100 Step 5
        prgBar.update i
        Application.Wait Now + TimeValue("00:00:01")
    Next

    Unload prgBar
    Set prgBar = Nothing
End Sub

Vorschau: