Speichert zweimal, warum ???

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dateispeichern.Show vbModeless
DoEvents
Dim zähler%
For zähler = 1 To 100 Step 3
Fortschritt _
BreiteProzent:=zähler, _
FarbeFortschrittsbalken:=vbGreen, _
Textfarbe:=vbRed, _
Schriftart:="Times New Roman", _
Schriftdicke:=6, _
Schriftgrösse:=15
Application.Wait (Now + TimeSerial(0, 0, 1))
Next
Application.StatusBar = False
Unload Dateispeichern
End Sub