Fehler in VBA-Code: PDF speichern-Button

[MrHoef]

Hallo liebe Forenmitglieder,

habe mir aus diversen Code-Schnipseln aus dem Internet einen Speicher-Button erstellt der mir alle mit Strg + Linksklick markierten Tabellenblätter als PDF Datei in ein Netzlaufwerk speichert.
Allerdings funktioniert dieser nicht. Sobald sich das "Speichern unter"-Fenster öffnet ist es egal ob ich Speichern oder Abbrechen klicke. - bei beidem wird die Datei nicht abgelegt.
Anbei der Code:

Code:

Sub Speichern_PDF ()

Dim varRetVal As Variant, Datname As String, fileName As String
Dim Pfad As String


Pfad = "\\but2fs01\Data$\BRS\80_unterschriebene_Dokumente\"
Datname = Sheets("1. Kostenaufstellung").Range("K18").Text & ".pdf"
varRetVal = Application.GetSaveAsFilename(InitialFileName:=Pfad & Datname, FileFilter:="PDF files, *.pdf", Title:="Save PDF File")



   If varRetVal <> "Boolean" Then
       Else


       ActiveWindow.SelectedSheets.Copy
       With ActiveWorkbook

               .ExportAsFixedFormat Type:=xlTypePDF, fileName:= _
                   Datname, Quality:=xlQualityStandard, _
                   IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
                   
           
       End With
       
       ActiveWorkbook.Close SaveChanges:=False
       
   End If
       
End Sub

Kann mir hier jemand weiterhelfen? Ich denke das es am Teil...

Code:

If varRetVal <> "Boolean" Then
       Else

liegt!?


Liebe Grüße und Vielen Dank schon mal!

[RPP63]

Moin!
Nimm statt "Boolean" False (ohne die Füße der Gänse) und entferne Else
Aus der VBA-Hilfe zu .GetSaveAsFilename:

Diese Methode gibt den ausgewählten Dateinamen oder den vom Benutzer eingegebenen Namen zurück. Der zurückgegebene Name kann eine Pfadangabe enthalten. Gibt False zurück, wenn der Benutzer das Dialogfeld durch Klicken auf die Schaltfläche Abbrechen schließt.

Gruß Ralf

[MrHoef]

Super danke dir!
Genau das war es!  :16: