Office: Progress Bar

hi!

also, es zwar größtenteils sinnlos, aber ich hätte gern, dass wärend etwas anderes passiert, eine progressbar mitläuft.

ich hab ne userform, wo der ladebalken drin is und den code:

Code:

Private Sub CommandButton1_Click()
UserForm1.Show
UserForm1.ProgressBar.Width = 0
'irgend ein code
UserForm1.ProgressBar.Width = 100
End Sub

jetzt hab ich folgendes problem: die userform wird angezeigt, aber das makro wird nur weiter ausgeführt, wenn ich die userform beende;
kann ich das irgendwie ändern?
schon mal danke, falls ihr mir helfen könnt!

 

Hallo!

Meinst du vielleicht sowas?

Code:

Sub test()
Dim i As Integer
With UserForm1.ProgressBar1
.Min = 1
.Max = 10000
UserForm1.Show vbModeless
For i = 1 To 10000
.Value = i
DoEvents
Next i
End With
MsgBox "Fertig!"
UserForm1.Hide
End Sub

 

hey
tut mir leid, dass ich erst so spät antworte!
schulendstress!
ich werd deinen vorschlag gleich mal probieren! danke