Detail eines Word-Makros für Excel anpassen

Question

Guten Abend,

Pfadvorgabe = LWspeichern & ":\" & activeworkbook.Name
'Speichern-unter-Dialog aufrufen
With Application.Dialogs(xlDialogSaveAs)
.Name = Pfadvorgabe
.Show
End With
End Sub

Hier stoppt das Makro: .Name = Pfadvorgabe
Fehler 438, Objekt unterstüzt diese Eigenschaft oder Methode nicht.
in Word bewirkt dies, das im "Speichern unter" Dialog das vorher ausgewählte Laufwerk und der Dateiname vorgegeben sind.
Wie muss das im Excel-Makro heißen?
mfg
Wolfgang

Answer 1

Hallo Wolfgang,

ich würde vermuten ActiveDocument statt activeworkbook

Gruß Hajo

Answer 2

Hallo Wolfgang,

so sollte es für Excel passen (dieses Mal getestet :-)):

'Pfad und Name des Dokuments in Variable für den Speichern-unter-Dialog schreiben
Pfadvorgabe = Application.GetSaveAsFilename(InitialFileName:=LWspeichern & ":\" & ActiveWorkbook.Name, fileFilter:="Exceldateien mit Makro(*.xlsm),*.xlsm,Exceldateien ohne Makro (*.xlsx),*.xlsx")
ThisWorkbook.SaveAs Filename:=Pfadvorgabe

Gruß

M.O.