Makro: speichern als .xlsm
11.05.2017 13:00:28
Max
nachstehendes Makro habe ich seinerzeit mit Hilfe des Forums erhalten und es hat
bis heute auch problemlos funktioniert:
Sub SaveAs_Rechnung()
Dim Pfad$, Datei$, Filter$, Endg$, File
Pfad = "C:\Rechnung\"
Datei = ActiveSheet.Range("J8")
If Datei = "" Then
MsgBox "Ohne Vor- u. Zuname ist kein Speichern möglich", vbExclamation
Exit Sub
End If
Endg = ".xlsm"
If InStr(Datei, Endg) = 0 Then
Datei = Datei & Endg
End If
Filter = "Excel Files (*" & Endg & "), *" & Endg
File = Application.GetSaveAsFilename(Pfad & Datei, Filter)
If File False Then ActiveWorkbook.SaveAs Filename:=File
End Sub
Der "Speichern unter"-Dialog erscheint zwar korrekt mit Datei-/ Kundennamen und Dateiformat .xlsm. Als Dateityp wird "Excel Files (*.xlsm) angezeigt, im Dialog wäre auch keine andere Auswahl möglich.
Klickt man auf "Speichern", meldet Excel leider, daß mit Makros nicht gespeichert werden kann(?):
Wie kann das Makro geändert werden, damit ein Speichern als .xlsm wieder funktioniert?
Für eure Mühe vorab schon mal recht herzlichen Dank!
Viele Grüße
Max