Datei filtern & PDF erzeugen
13.05.2021 19:46:09
Holger
Hier der Link zur Datei:
https://www.herber.de/bbs/user/146163.xlsm
An diesem verregneten Feiertag habe ich mich an eine Datei gewagt die ich schon lange vor mir herschob.
Es geht darum das Arbeitsblatt "Zusammenfassung" und die Tabellenblätter "1." ; "2." ;" 3." , später bis "31." in einer PDF Datei zusammen zu speichern wobei folgendes zu beachten ist
- in den Tabellenblättern "1." ; "2." ;" 3." , später bis "31." filtern der Spalte B (ab Zelle B5 - Ende offen, da u.U. noch Zeilen im Laufe der
Zeit eingefügt werden . ) - so das nur Zeilen übrig bleiben welche NICHT leer sind
- dann sollte die "Zusammenfassung" als so genanntes Deckblatt fungieren und die gefilterten Tabellenblätter "1." ; "2." ;" 3." , später bis "31."
dahinter angehängt werden
- der Speicherort soll dann der Ordner sein in dem die Exceldatei erstellt wurde. s. Code.
Leider macht der Code nicht genau das was ich möchte, sondern öffnet das Menü in welchem der Speicherort selbstständig ausgewählt soll.
Für die Anwender für die diese Datei erstellt wird sind leider echte Anfänger und noch nicht so fit in der Materie.
--------------------------------------------------------------------------------------------------------------------------------------------------------------------
MODUL 3
Sub CreatePDF()
Dim strFileName As String
strFileName = Application.GetSaveAsFilename(InitialFileName:=Environ("Userprofile") & _
"\Desktop\" & ActiveWorkbook.Name, _
FileFilter:="PDF-Datei (*.pdf), *.pdf")
If strFileName = "Falsch" Then Exit Sub
Sheets(Array("Zusammenfassung", "1.", "2.")).Select
ActiveSheet.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=strFileName, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=True, _
OpenAfterPublish:=True _
End Sub
Dieser Code funktioniert m.E. eigentlich ganz gut aber auch hier das Problem mit dem speichern der PDF in dem Ordner in dem die Exceldatei gespeichert ist.
Schön wäre auch das das Filtern der Daten der Spalte B (ab B5 - Ende nach unten offen, da u.U. noch Zeilen im Laufe der Zeit eingefügt werden) ggf. eleganter gelöst werden könnte
MODUL 2
Sub Arbeitsblatt_als_PDF_jeden_Tages_Speichern()
Dim pdfDateiName As String
Dim pdfname As Variant
pdfDateiName = "Abrechnung CORE vom " & ActiveSheet.Range("b2") & ".pdf"
pdfname = Application.GetSaveAsFilename(InitialFileName:=pdfDateiName, FileFilter:="PDF files, *.pdf", Title:="PDF speichern")
If pdfname False Then
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdfDateiName, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
Else
Exit Sub
End If
End Sub
Feiertag auch wenn dieser noch so verregnet sei sich
um Probleme ander EXCEL User kümmern
Holger aus dem nassen Bärlin