Sub ASBerichtLaden()
'Einstellungen Statusbar
Load UserForm1
UserForm1.Show vbModeless
With UserForm1
UserForm1.ProgressBar1.Max = 6 'Anzahl der Schritte
UserForm1.ProgressBar1.Min = 0
UserForm1.ProgressBar1.Value = UserForm1.ProgressBar1.Min
'Bildschirmaktualisierung ausschalten:
Application.ScreenUpdating = False
.