Makro Fortschrittsbalken für alle Interessierten
11.07.2006 13:25:55
Matthias
ich biete hier meinen Fortschrittsbalken für interessierte Forumteilnehmer an. Nachdem ich mich in das Thema eingelesen und aus verschiedenen Beiträgen mir für meine Bedürfnisse das Beste rausgesucht hatte, ist diese Version entstanden.
Der Fortschrittsbalken zeigt an, was schon erreicht/verarbeitet wurde und was noch erreicht/verarbeitet werden muss.
Ich setze den Fortschrittsbalken z.B. ein, wenn ich mehrere Dateien zusammenführen muss, die im Netzwerk verteilt sind. Das dauert manchmal sehr lange und ich weußte bisher nicht sofort, ob was voran geht oder nicht.
Ich wünsche viel Spass damit.
Gruß, Matthias R
-------------------------------------------------------------------------
' Das Makro erzeugt einen Fortschrittsbalken in der Statuszeile von EXCEL.
' Es werden 100 Zeichen angezeigt, die entweder als leere oder gefüllte Kästchen erscheinen
' und damit den Fortschritt im Sinne bereits erreicht bzw. noch zu erreichen anzeigen.
' Vorbereiten Statusanzeige
oldStatusBar = Application.DisplayStatusBar
Application.DisplayStatusBar = True
' Festlegen der Werte für die Berechnung des Prozentsatzes; ggf. Anpassen der Feldnamen
Dim wert1 As Integer
Dim wert2 As Integer
'
' Einbau an die passenden Stelle, wo der Prozentsatz berechnet und die Anzeige erfolgen soll
ProzentSatz = Int((wert1 / wert2) * 100)
Call StatusBalken(ProzSatz)
' Wiederherstellen Statusanzeige
Application.StatusBar = False
Application.DisplayStatusBar = oldStatusBar
' Makro mit der Statusanzeige
Sub StatusBalken(ProzentSatz)
Mess = ""
For z = 1 To ProzentSatz
Mess = Mess & ChrW(Val("&H25A0"))
Next z
Rest = 100 - ProzentSatz
For z = 1 To Rest
Mess = Mess & ChrW(Val("&H25A1"))
Next z
Application.StatusBar = Mess
End Sub