ActiveWorkbook.SaveAs verzeichnis & "\" & DateiName
ActiveWorkbook.Save
Error run-time 1004
Sub nn()
Dim strFilename As String
strFilename = "E:\Test.xls"
ActiveWindow.SaveAs Filename:=strFilename, FileFormat:=-4143
'oder
strFilename = "E:\Test.xlsx"
ActiveWindow.SaveAs Filename:=strFilename, FileFormat:=51
'oder
strFilename = "E:\Test.xlsm"
ActiveWindow.SaveAs Filename:=strFilename, FileFormat:=52
End Sub
'oder automatisch
Sub nnn()
Dim strFilename As String, strExt As String, lngFF As Long
strFilename = "E:\Test"
getFileExtAndFormat ActiveWorkbook, strExt, lngFF
ActiveWorkbook.SaveAs Filename:=strFilename & strExt, FileFormat:=lngFF
End Sub
Function getFileExtAndFormat(ByRef WB As Workbook, ByRef strExt As String, ByRef lngFormat As Long)
With WB
If Val(Application.Version) < 12 Then
strExt = ".xls": lngFormat = -4143
Else
Select Case WB.FileFormat
Case 51: strExt = ".xlsx": lngFormat = 51
Case 52:
If .HasVBProject Then
strExt = ".xlsm": lngFormat = 52
Else
strExt = ".xlsx": lngFormat = 51
End If
Case 56: strExt = ".xls": lngFormat = 56
Case Else: strExt = ".xlsb": lngFormat = 50
End Select
End If
End With
End Function