gefilterte Daten als PDF speichern

Forumthread: gefilterte Daten als PDF speichern

10.06.2014 19:05:04

hary

Moin alle miteinander
Kann man gefilterte Daten direkt als PDF abspeichern?
Mit Cells(1,1).CurrentRegion.SpecialCells(xlVisible).copy hab ich ja die sichtbaren.
Diese auslagern und dann als PDF speichern klappt ja, nur wollte ich ohne Umweg abspeichern. Bei meinen Versuchen wurden die unnutzen auch mit eingefuegt.
danke im vorraus
gruss hary

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: gefilterte Daten als PDF speichern

10.06.2014 19:11:27

Daniel
AW: gefilterte Daten als PDF speichern

10.06.2014 19:19:37

hary
Melde mich...

10.06.2014 19:24:24

hary
AW: gefilterte Daten als PDF speichern

10.06.2014 19:31:52

Daniel
AW: geloest

11.06.2014 07:20:47

hary

AW: gefilterte Daten als PDF speichern

10.06.2014 19:11:27

Daniel

Hi
wie speicherst du denn als PDF?
über SpeichernUnter oder nutzt du einen PDF-Generator über die Druckfunktion?
da PDF ja ein Ausdruck ist, ist es eigentlich unlogisch, dass ausgeblendete Zellen mit erscheinen.
Gibt es ein BeforeSave oder BeforePrint-Makro im Modul "DieseArbeitsmappe" welche den Filter u.U. vorher aufhebt?
Gruß Daniel

AW: gefilterte Daten als PDF speichern

10.06.2014 19:19:37

hary

Moin Daniel
wksZ ist das Auslagerungsblatt
Hier mit Umweg ueber ein extra Blatt.

With Cells(3, 1).CurrentRegion
If AutoFilterMode = True Then ShowAllData
.AutoFilter Field:=4, Criteria1:=""
.SpecialCells(xlVisible).Copy wksZ.Cells(1, 1)
.AutoFilter
End With
With wksZ
strPfad = "C:\a\Test\" & "Bestellung_vom_" & Date
.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
strPfad, Quality:=xlQualityStandard, IgnorePrintAreas:=False, OpenAfterPublish:=True
.Cells.Clear
End With

Hatte noch nicht viel mit PDF zu tun.
gruss hary

Melde mich...

10.06.2014 19:24:24

hary

Moin
...morgen wieder, hab jetzt Schicht im Schacht.;-)
gruss hary

AW: gefilterte Daten als PDF speichern

10.06.2014 19:31:52

Daniel

Hi
mit .AutoFilter
schaltest du den Autofilter aus und damit wird wieder alles angezeigt.
das machst du nach dem Copy-Paste, aber vor dem Speichen als PDF.
Also ist es logisch, dass das PDF alles anzeigt, weil der Filter gar nicht mehr aktiv ist.
Liest deinen Code eigentlich nach dem du ihn geschrieben hast oder testest mal im Einzelstep?
Da sollte sowas eigentlich auffallen.
Gruß Daniel

AW: geloest

11.06.2014 07:20:47

hary

Moin Daniel
F8 Taste ist mein Freund.;-)
"Also ist es logisch, dass das PDF alles anzeigt, weil der Filter gar nicht mehr aktiv ist."
Nee, der oben genannte Code funzt. Bevor ich den Filter deaktiviere kopiere ich ja .SpecialCells(xlVisible) in ein anderes Blatt.
Ich hatte es so und anderes probiert:

Dim strPfad As String
With Cells(3, 1).CurrentRegion
.AutoFilter Field:=4, Criteria1:=""
strPfad = "C:\a\Test\" & "Bestellung_vom_" & Date
.SpecialCells(xlVisible).ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
strPfad, Quality:=xlQualityStandard, IgnorePrintAreas:=False, OpenAfterPublish:=True
End With

Und da hatte ich einen bloeden Gedankenfehler.
So gehts.

Dim strPfad As String
With Cells(3, 1).CurrentRegion
.AutoFilter Field:=4, Criteria1:=""
strPfad = "C:\a\Test\" & "Bestellung_vom_" & Date
Worksheets("Tabelle1").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
strPfad, Quality:=xlQualityStandard, IgnorePrintAreas:=False, OpenAfterPublish:=True
.AutoFilter
End With

gruss hary

Infobox / Tutorial

Gefilterte Daten als PDF speichern in Excel

Schritt-für-Schritt-Anleitung
Häufige Fehler und Lösungen
Alternative Methoden
Praktische Beispiele
Tipps für Profis
FAQ: Häufige Fragen

Schritt-für-Schritt-Anleitung

Filter setzen: Stelle sicher, dass der Autofilter auf deine Daten angewendet ist.
VBA-Editor öffnen: Drücke ALT + F11, um den VBA-Editor zu öffnen.
Modul hinzufügen: Füge ein neues Modul hinzu, indem du mit der rechten Maustaste auf "VBAProject" klickst und "Einfügen" > "Modul" auswählst.

Code einfügen: Füge den folgenden VBA-Code ein, um die gefilterte Tabelle als PDF zu speichern:

Dim strPfad As String
With Cells(3, 1).CurrentRegion
   .AutoFilter Field:=4, Criteria1:="" ' Filtere nach deinen Kriterien
   strPfad = "C:\a\Test\" & "Bestellung_vom_" & Date
   Worksheets("Tabelle1").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
   strPfad, Quality:=xlQualityStandard, IgnorePrintAreas:=False, OpenAfterPublish:=True
   .AutoFilter ' Filter zurücksetzen
End With

Makro ausführen: Schließe den VBA-Editor und führe das Makro aus, um die gefilterte Excel-Tabelle zu speichern.

Häufige Fehler und Lösungen

Fehler: PDF wird abgeschnitten.
- Lösung: Überprüfe die Druckbereiche in Excel. Stelle sicher, dass der Bereich für die PDF-Erstellung korrekt eingestellt ist.
Fehler: Ausgeblendete Zellen erscheinen in der PDF.
- Lösung: Vergewissere dich, dass du die SpecialCells(xlVisible) Methode richtig anwendest, bevor du die PDF speicherst.

Alternative Methoden

Druckfunktion nutzen: Eine Alternative ist, die gefilterte Tabelle über die Druckfunktion als PDF zu speichern. Gehe zu "Datei" > "Drucken" und wähle "Microsoft Print to PDF".
PDF-Generator verwenden: Es gibt verschiedene PDF-Generatoren, die du nutzen kannst, um das Dokument zu erstellen, wenn du nicht mit VBA arbeiten möchtest.

Praktische Beispiele

Beispiel 1: Speichern von Verkaufsberichten. Wenn du einen Verkaufsbericht hast, der nach Produktkategorie gefiltert ist, kannst du den oben genannten Code verwenden, um nur die relevanten Daten zu speichern.
Beispiel 2: Monatliche Ausgaben. Filtere deine Ausgaben nach Monat und speichere sie als PDF für eine einfache Analyse.

Tipps für Profis

PDF-Erstellungsdatum auslesen: Du kannst das Erstellungsdatum einer PDF-Datei mit VBA auslesen, indem du die FileDateTime-Funktion verwendest. Dies ist nützlich für das Dokumentenmanagement.
Automatisierung: Du kannst deine Makros so planen, dass sie automatisch zu bestimmten Zeiten ausgeführt werden, um regelmäßig gefilterte Daten zu speichern.

FAQ: Häufige Fragen

1. Wie kann ich die gefilterte Excel-Tabelle speichern? Du kannst das mit VBA tun, indem du die ExportAsFixedFormat-Methode verwendest, um die gefilterte Tabelle als PDF zu speichern.

2. Warum erscheinen ausgeblendete Zellen in meiner PDF? Das geschieht oft, wenn der Autofilter nicht aktiv ist oder wenn die Sichtbarkeit der Zellen nicht korrekt behandelt wird. Achte darauf, dass du nur die SpecialCells(xlVisible) verwendest.

3. Kann ich das PDF nach dem Speichern automatisch öffnen? Ja, indem du OpenAfterPublish:=True in deinem VBA-Code angibst, öffnet sich die PDF-Datei automatisch nach dem Speichern.

Beliebteste Forumthreads (12 Monate)

gefilterte Daten als PDF speichern

Forumthread: gefilterte Daten als PDF speichern

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Infobox / Tutorial

Gefilterte Daten als PDF speichern in Excel

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread