mein Makro zum Abspeichern läuft leider noch nicht ganz rund.. so ploppt die MessageBox "Alle Änderungen wurden gespeichert" zweimal nacheinander auf und danach hängt sich mein PC bzw. Excel immer auf.. Woran könnte das liegen?
Hier das aktuelle Makro:
Public Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim Nummer As Variant
Nummer = Range("L5").Value
If Application.UserName = "xxxx" Then Exit Sub
If Worksheets("Daten").Range("C5") = "" Or Worksheets("Daten").Range("F5") = "" Or Worksheets(" _
Daten").Range("G15") = "" Or Worksheets("Daten").Range("G36") = "" Then
MsgBox "Bitte füllen Sie alle Daten aus."
Cancel = True
Else
ThisWorkbook.SaveAs Filename:=Nummer, FileFormat:=52
'52 = xlOpenXMLWorkbookMacroEnabled
MsgBox "Alle Änderungen wurden gespeichert."
End If
End Sub
Viele Grüße, Shiva