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:
Kann mir hier jemand weiterhelfen? Ich denke das es am Teil...
liegt!?
Liebe Grüße und Vielen Dank schon mal!
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
Liebe Grüße und Vielen Dank schon mal!