Excel Makro speichern unter

Sascha84

Lt. Junior Grade
Registriert
Jan. 2008
Beiträge
293
hallo,

habe ein Makro erstellt, soweit so gut

ActiveWorkbook.SaveAs Filename:= _
"C:\Users\HVRF0940\Desktop\" & "TIM-PEO-Erstellung-" & Sheets(1).Range("A2").Value & ".xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False

nur wie bekomme ich jetzt den Speichern unter... Dialog angezeigt ?
 
Sub DateiSpeichernUnter()

dateiname = "C:\Users\HVRF0940\Desktop\" & "TIM-PEO-Erstellung-" & Sheets(1).Range("A2").Value & ".xls"
speichernunter = Application.GetSaveAsFilename(dateiname, "Microsoft Excel 97-2003 (*.xls),*.xls", , "Datei speichern unter")
If speichernunter = False Then Exit Sub
ActiveWorkbook.SaveAs (speichernunter), FileFormat:=xlNormal

End Sub

 
Vielen Dank, hat funktioniert :)
 
Zurück
Oben