Sorry, ein Missverständnis. Habe sowohl deinen Vorschlag sowie eine UserForm (frmDatAkt) ausprobiert, mit Label (lblProgBar.Width = 400), wobei
f = f + 2 ' f= Fortschritt, "2" ist ein subjektiv gewählter Wert
With frmDatAkt
.lblProgBar.Width = f * 4 + 15 ' "15" s.o.
.lblProgBar.Caption = " " & f & " %"
End With
Application.Wait Now + Pause
…
Application.Run "InpMAKROS.xlsm!Inp_xyz_Aktualisieren"
f = f + 15 ' "15" s.o.
With frmDatAkt
.lblProgBar.Width = f * 4
.lblProgBar.Caption = " " & f & " %"
End With
Application.Wait Now + Pause
usw., usw…
Ich möchte einen Progress Bar, während dessen andere VBA's laufen.
Meine Befürchtung ist allerdings, dass ich alle Makros in diese UserForm integrieren muss. Ist das so, oder geht's anders?
|