"Speichern unter" funzt nur in Vorlage
24.06.2022 09:15:05
Gil
Es funktioniert zwar dass das Fenster geöffnet wird aber wenn ich dann speichern will erhalte ich einen Laufzeitfehler '1004' "Diese Erweiterung kann nicht mit dem ausgewählten Dateityp verwendet werden. Ändern Sie die Dateierweiterung im Textfeld 'Dateiname', oder wählen sie einen anderen Dateityp aus, indem sie die Auswahl unter 'speichern unter' ändern."
Wenn ich dann Debuggen drücke gibt er mir die Zeile ActiveWorkbook.SaveAs varRetVal an.
Hier noch der ganze Code
Private Sub CommandButton1Speichernunter_Click()
Dim varRetVal As Variant, strInitFileName As String, Datname As String
Dim Pfad As String
Pfad = "Hier ist mein Pfad eingetragen"
Datname = "Checkliste Generationenwechsel " & Range("d13") & " " & Range("d12") & " " & Range("d11") & ".xlsm"
varRetVal = Application.GetSaveAsFilename( _
InitialFileName:=Pfad & Datname, _
FileFilter:="Excel-Arbeitsmappe mit Makros (*.xlsm), *.xlsm", _
Title:="Datei speichern unter... ")
If varRetVal = False Then Exit Sub
ActiveWorkbook.SaveAs varRetVal
End Sub