(Fortschrittsanzeige) in Statuszeile
02.12.2004 21:35:26
Niklas
ich habe hier im Forum einen VBA-Code entdeckt um eine Fortschrittsanzeige in der Statuszeile anzuzeigen, so dass der User sieht wie weit der Makro-Ablauf fortgerschritten ist. Leider funktioniert es nicht :-( Ich bin da leider zu wenig versiert wie man so was genau anstellt. Kann mir hierbei eventuell jemand helfen? Oder hat mir jemand eine andere Idee so eine Fortschrittsanzeige anzuzeigen?
Hier der Code und vielen DANK:
Sub auto_open()
Dim Status As Boolean
Status = Application.DisplayStatusBar
End Sub
Sub auto_close()
Dim Status As Boolean
Application.DisplayStatusBar = Status
End Sub
Sub Fortschritt()
Dim i%, y%
Application.DisplayStatusBar = True
For i = 1 To 10
StatusLED "Bisher abgearbeitet: ", i / 10
Application.Wait Now + TimeSerial(0, 0, 2)
Next i
Application.StatusBar = False
End Sub
Function StatusLED(Msg As String, Pct As Single)
Dim PctDone As Integer
Dim NumReps As Integer
With Application
PctDone = .Round(Pct, 2) * 100
NumReps = Int(PctDone / 5)
.StatusBar = Msg & .Rept(Chr(14), NumReps) & _
.Rept("**", 20 - NumReps) & " " & PctDone & "%"
End With
End Function