Hallo zusammen, wie muss ich den untere Code ergänzen, wenn ich beim Dialogfenster Speicher unter auf abrechen klicke soll das Makro stoppen.
Vielen Dank :-)
Sub Speichern_Unter()
On Error GoTo ErrorHandler
ErrorHandler:
If Err.Number = 1004 Then
MsgBox "Datei kann momentan nicht überschrieben werden weil die noch synchronisiert wird. Warten bis Status grüner Kreis mit Häkchen angezeigt wird."
Application.ActiveWorkbook.Close
Exit Sub
End If
Dim Dateiname As String
Dateiname = "Invoice_" & ActiveSheet.Range("O1").Value
Application.Dialogs(xlDialogSaveAs).Show Dateiname
If Dir(Dateiname) > "" Then
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Dateiname
Application.DisplayAlerts = True
End If
Call Invoce_Formatierung
Call Delivery_Formatierung
Call Blatt_Fehlermeldung_löschen
Sheets("Invoice EN").Select
ActiveSheet.Shapes.Range(Array("Button 3")).Select
Selection.Delete
Selection.Cut
End Sub