Hallo Leute,
hoffe es hat noch jemand eine Idee. Ich werd noch verrückt. Nichts funktioniert.

Habe diese Makro gefunden. Es speichert ein Tabellenblatt als .xls aber nicht als .xlsm.
Gibt es hierfür auch eine Lösung?

Sub BlattSpeichern()
Dim sPath As String, sWks As String, sFile As String
Application.ScreenUpdating = False
sPath = Application.DefaultFilePath & "\"

sWks = Sheets(Sheets.Count).Name
sWks1 = sWks & ".xlsm"

If sWks = "" Then Exit Sub
sFile = InputBox( _
prompt:="Dateiname:", _
Default:=sWks1)
If sFile = "" Then Exit Sub
ActiveSheet.Copy
ActiveSheet.Name = sWks
ActiveWorkbook.SaveAs sPath & sFile
Application.ScreenUpdating = True

End Sub

Grüße
Gruibe