Hat jemand eine Ahnung, wo hier das Problem liegt ? Nachfolgend ein Ausschnitt aus dem Makro-Code.
Gruß Peter
verz = "S:\Abteilungen\Vertriebscontrolling\intern\Margencheck\"
ChDir verz
ext = ".xlsx"
Dateiname = InputBox("Bitte Dateiname eingeben:", Default:="Hoechste_Nummer" & ".xlsx")
If Dateiname = "" Then
Application.DisplayAlerts = False
ActiveWorkbook.Close
Else
ActiveWorkbook.SaveAs Filename:=verz & Dateiname, FileFormat:=xlOpenXMLWorkbook ' ohne Makros speichern
ActiveWorkbook.Close
End If