|
Kann ich auch nur empfehlen. Ist viel besser als der Progressbar da:
Kompatibler (Versionsunabhängiger)
Sieht einfach besser aus ;D (Excel 03 Zumindest)
Viel mehr Konfigurationsmöglichkeiten zur Darstellung (Wie z.B. Farbe)
Hier ist der Code der nun Vollständige und Funktionsfähige Code, egal wie lang ihr die Labels habt. (Das vordere Label heisst progress, das hintere bar)
Private Sub CommandButton1_Click()
Dim lenght As Integer
Dim BarAdd As Double
Dim sngBreite As Single
'
'Sachen wie For i = 1 to lenght sind nur damit das Programm was zu tun hat.
'Schreibt in jede Zelle von A1 Bis ALenght den Wert i
'
progress.Width = 0
lenght = 1000
BarAdd = bar.Width / lenght
For i = 1 To lenght
Cells(i, 1) = i
sngBreite = sngBreite + BarAdd
progress.Width = sngBreite
Next i
End Sub
|