ich will während eines längeren rechenprozesses gerne eine ProgressBar anzeigen lassen. ich hab ein wenig gestöbert und probiert, wobei ich auf diesen Ansatz kam:
UserForm1.Show
With ProgressBar1
Dim dblRow As Double
Application.ScreenUpdating = False
UserForm1.Caption = "Bitte warten..."
For dblRow = 1 To 10000
If dblRow Mod 10 = 0 Then
ProgressBar1.Width = 222 * (dblRow / 10000)
ProgressBar1.Caption = Format(dblRow / 10000, "0%")
DoEvents
End If
Cells(dblRow, 1) = "Zeile " & dblRow
Next dblRow
Cells.ClearContents
Unload Me
End With
Leider funzts net. in der zeile nach if stoppt er und sagt "objekt erforderlich"!?
auch weiß ich net so recht wo dann der restliche code rein muß, damit der parallel bearbeitet wird.
bitte helft mir,
ingo