Ich habe folgenden Code mit dem ich in der Statusbar den Progress anzeigen lasse.
Das funktioniert sehr gut!
Könnt Ihr mir helfen diesen fortlaufenden Prozess
in eine Userform mit Fortschrittsbalken zu übergeben.
Das wäre echt klasse!
Sub StatusBar()
Dim x As Integer
Dim MyTimer As Double
'Change this loop as needed.
For x = 1 To 15000
'Dummy Loop here just to waste time.
'Replace this loop with your actual code.
MyTimer = Timer
Do
Loop While Timer - MyTimer
Vielen lieben Dank schon mal
MfG
Thorben