Clever-Excel-Forum

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!

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

Zitat: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

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

MrHoef

RPP63

MrHoef