Makro
10.10.2005 16:00:18
Frank
unten genanntes Makro habe ich in der Recherche gefunden
ist es möglich den Programmfortschritt statt in der Titelleiste
in einem Label oder TextBox ablaufen zulassen.
Über eine Antwort würde ich mich sehr freuen.
Sub Makro11()
Max = 1500
For i = 1 To Max
Sheets(1).Cells(1, 1) = i
uf_ProgBar.PBx.Width = uf_ProgBar.PB100.Width / Max * i
uf_ProgBar.Caption = "Programmfortschritt " & Int(i / Max * 100) & "%"
DoEvents
Next
End Sub
Gruss
Frank
Anzeige