Speicherung auch in .xslm
10.04.2016 15:08:18
chris58
ich habe einen Code in mein Tabellenblatt eingebaut, der speichert die Datei in .xls ab. Was muß ich ändern, das er nicht nur in .xls sondern auch in .xlsm (wenn dies auf dem Rechner vorhanden) ist, abspeichern kann.
Bitte helft mir, habe schon etliches probiert, jedoch keinen Erfolg gehabt.
Danke
chris
.......
.......
.......
ActiveSheet.Unprotect Password:="test"
Dim strVerzeichnis As String
Dim strDateiname As String
Range("G2").Value = "Speichern"
MsgBox "Speichern nur möglich unter dem vorgegebenen Namen !"
strVerzeichnis = "C:\Temp\"
strDateiname = Application.GetSaveAsFilename(InitialFileName:=strVerzeichnis & _
Range("AH4") & " " & Range("N7") & ".xls", _
FileFilter:="Microsoft Excel-Arbeitsmappe (*.xls), *.xls")
Select Case strDateiname
Case False
Range("G2").Value = ""
Exit Sub
Case Else
ThisWorkbook.SaveAs Filename:=strDateiname
End Select
ThisWorkbook.Close True
End Sub