AW: Verlaufbalken in Statusleiste oder UserForm
18.11.2005 10:44:18
Andreas
Hallo Manfred,
diesen Code in dein Programm einbauen, immer dann wenn du die Statusliste aktualisiert haben möchtiest:
StatusLED "Bisher abgearbeitet: ", Prozentzahl
Prozentzahl muss zwischen 0 und 1 liegen (zBsp. 70% -> 0.7)
Am Ende des Programmes die Zeile
Application.StatusBar = False
einfügen um den Stauts wieder in den normal Zustand versenden.
Die Funktion auch separat seichern
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
gruss
Andreas