Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1364to1368
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1364to1368
1364to1368
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

gefilterte Daten als PDF speichern

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
Anzeige
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

Anzeige
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
Anzeige

336 Forumthreads zu ähnlichen Themen

Tabelle als PDF speichern
PeTeR

Hallo VBA-Freaks,
ich suche seit Stunden - finde aber nicht den exakt passenden Code, obwohl es zig Einträge zu dem Thema gibt.
Ich will eine Tabelle per VBA in PDF umwandeln u. drucken. Mein Code:
Application.ActivePrinter = "Adobe PDF auf Ne01:"
ActiveWindow.SelectedSheets.Pri...
25.10.2008 23:06:00
Thread-ID: 1019291
5 Beiträge
Anzeige
Tabellenblatt als pdf und speichern
Horst

Hallo,
ich möchte über VBA ein Tabellenblatt als pdf speichern.
Momentan kann ich dank dem Makrorecorder ein pdf Dokument mit der BroadGun PDF Machine erstellen,
Acrobat Reader startet und zeigt das Dokument an.
Mein Wunsch wäre jedoch , dass das PDF Dokument auch gleich mit e...
27.11.2009 15:18:04
Thread-ID: 1120555
3 Beiträge
Excel Worksheet in PDF Datei umwandeln
Benedikt

hallo excel spezialisten
ich möchte gerne ein excel worksheet in eine pdf datei umwandeln, wie kann ich das machen?
das ganze sollte über einen makro möglich sein, denn ich möchte einen button dafür einsetzen (CommandButton1_Click), gleichzeitig möchte ich das sich die pdf datei automat...
28.02.2010 22:11:37
Thread-ID: 1142230
2 Beiträge
Anzeige
per VBA als PDF speichern - mit Code
Klaus

Moin Moin,
um eine Arbeitsmappe als PDF zu speichern, bemühe ich den "PDFCreator" sowie den Drucken-Dialog. _ Der Recorder gibt mir dann folgendes: Sub Makro1() Application.ActivePrinter = "PDFCreator auf Ne00:" ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _ "PDFCreator...
16.04.2010 14:23:54
Thread-ID: 1152230
2 Beiträge
Excel Blatt als PDF speichern und dann verschicken
M

Hallo,
ich glaube ich habe mein Werk jetzt fast fertig, aber nun scheitert es doch an den letzen Zügen und an meinen nicht vorhandenen VBA Kenntnissen.
Dies ist mein erster Makro und der funktioniert auch so wie ich es mit vorgestellt habe: Sub Makro1() ' Makro1 Makro ActiveSheet.Expor...
03.05.2010 09:14:35
Thread-ID: 1155012
2 Beiträge
Blatt als PDF-Datei abspeichern
WalterK

Hallo,
in der Recherche habe ich einen Code gefunden mit dem Blätter als PDF-Datei gespeichert werden. Auf meine Bedürfnisse angepasst funktioniert er tadellos.
Eine kleine Änderung bekomme ich aber nicht hin.
Es geht um die Zeile sPDFName = "Arbeitszeitnachweis .....
MonatJahr...
16.07.2010 22:10:25
Thread-ID: 1167519
6 Beiträge
Aus Excel word Formular füllen & als pdf speichern
Tim

Hallo,
ich habe ein Excel Datei it Makros in deren Verlauf ich eine Word Formatvorlage fülle. Soweit klappt das alles auch gut.
Sub Test() Dim wrdApp Dim wrdDoc Dim Pfad As String Pfad = ThisWorkbook.Path & "\Vorlagen\Vorlage Gutschrift.docx" On Error GoTo ErrorExit Set wrdApp = C...
31.05.2011 12:43:37
Thread-ID: 1216846
3 Beiträge
Mail per VBA mit PDF-Anhang
Ralf

Hallo,
ich werkle schon geraume Zeit an folgendem Problem rum:
Ich muss für einen Kunden aus einer Excel-Mappe heraus eine Mail versenden können.
Dabei gibt es folgende Bedingungen:
1. Als Attachement gibt es eine PDF-Datei, die vorher erzeugt wurde.
(Name und Speicherpfad s...
05.02.2012 16:38:24
Thread-ID: 1249421
7 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
4
2
2
1
2
1
1
5
2
6
1
7
2
3
1
15
12
2
10
3
16
1
2
6
6