VBA "Speichern unter" funktioniert nicht
04.10.2023 10:24:13
Michael
ich habe ein Makro, welches das Fenster "Speichern unter" öffnet und direkt einen bestimmten Pfad auswählt und direkt den Dateinamen aus einer Zelle ausliest und den Dateityp auf PDF setzt. Hier mal der Code:
Sub SpeichernPDF()
ActiveSheet.Unprotect Password:="maximal"
Range("I101").FormulaR1C1 = _
"=MID(CELL(""DATEINAME""),SEARCH(""["",CELL(""DATEINAME""))+1,SEARCH(""]"",CELL(""DATEINAME""))-SEARCH(""["",CELL(""DATEINAME""))-6)"
ActiveSheet.Protect Password:="maximal"
Dim strDateiname As String
' Den Dateinamen aus Zelle I101 auslesen und ".pdf" anhängen
strDateiname = Worksheets("Kalk").Range("I101").Value & ".pdf"
ChDrive "Z:" ' Ändere das Laufwerk und Verzeichnis nach Bedarf
ChDir "AllgemeinBüro Verwaltung1 Angebote2023" ' Ändere das Verzeichnis nach Bedarf
' Das Dialogfeld zum Speichern der Datei öffnen und den ausgewählten Dateinamen abrufen
Dim dlg As FileDialog
Set dlg = Application.FileDialog(msoFileDialogSaveAs)
dlg.InitialFileName = strDateiname
dlg.Filter = "PDF-Dateien (*.pdf), *.pdf"
If dlg.Show = -1 Then ' Wenn der Benutzer auf "Speichern" klickt
strDateiname = dlg.SelectedItems(1)
' Speichern Sie die Datei unter dem ausgewählten Namen
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=strDateiname, Quality:=xlQualityStandard
End If
Set dlg = Nothing ' Dialog schließen
End Sub
In der Fett markierten Zeile, bringt er einen Fehler beim Kompilieren: Methode oder Datenobjekt nicht gefunden.
Kann mir dazu jemand helfen?
Bei genaueren Rückfragen stehe ich natürlich gerne zur Verfügung.
Danke vorab!
Mfg Michael