Kopie lässt sich nicht öffnen
16.02.2023 04:44:13
Würzking94
ich habe ein Makro, das eine Kopie (ohne Markos) auf einem Server, erstellt.
Wenn ich diese Kopie öffnen möchte, bekomme ich folgende Meldung:
Die Datei '...' kann von Excel nicht geöffnet werden, da das Dateiformat oder die Dateierweiterung ungültig ist. Überprüfen Sie, ob die Datei beschädigt ist und ob die Dateierweiterung dem Dateiformat entspricht.
benenne ich die Datum in .xlsm kann ich die Datei öffnen.
Sub speichern()
Application.DisplayAlerts = False
Const PFAD$ = "\\server\Betrieb$\frei\frei\frei\"
Const SUF$ = ".xlsx"
Dim Wb As Workbook: Set Wb = ThisWorkbook
Dim Ws As Worksheet: Set Ws = Wb.ActiveSheet
Dim VDate$
Dim DName$
Dim VMinute$
Dim VStunde$
Dim Zwischen$
DName = Range("D23").Text
VStunde = Format(Range("B25").Value, "HH")
VMinute = Format(Range("B25").Value, "NN")
VDate = Format(Range("B24").Value, "yyyy-mm-dd")
ThisWorkbook.SaveCopyAs Filename:=PFAD & VDate & " " & DName & " " & VStunde & "_" & VMinute & " Uhr.xlsx"
Application.DisplayAlerts = True
End Sub
ändere ich das wie folgt um:
ThisWorkbook.SaveCopyAs Filename:=PFAD & VDate & " " & DName & " " & VStunde & "_" & VMinute & " Uhr.xlsx", FileFormat:=xlOpenXMLWorkbook
bokomme ich folgende Fehlermeldung:
Fehler beim Kompilieren:
Benanntes Argument nicht gefunden
Ich hoffe jemand kann mir helfen und verraten wo ich einen Fehler eingebaut habe.
Die Google suche hat mir leider nicht helfen können.