Speichern unter VBA
23.10.2018 18:22:38
Marquardt
ich bin am verzweifeln.
Das Makro soll nur speichern unter, mit vorgegebenen Namen (aus Zelle), als Makro (*.xlsm) speichern!
Als Fehler beim speichern kommt "Der Dateiname ist ungültig".
Kann bitte mal jemand drüber schauen?
Danke.
Dim fileSaveName As Variant
fileSaveName = Application.GetSaveAsFilename( _
InitialFileName:="C:\Users" & Sheets("Firmen").Range("c41"), _
fileFilter:="Excel File mit Makro (*.xlsm), *.xlsm")
If VarType(fileSaveName) = vbString Then
ThisWorkbook.SaveAs _
Filename:=fileSaveName, _
FileFormat:=xlOpenXMLWorkbookMacroEnabled
Else
MsgBox "Die Sicherung wurde abgebrochen!", vbOKOnly + vbExclamation, "Test"
End If
Anzeige