Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 14:59:21
Zellformel in VBA
23.04.2024 14:47:39
Formel SVERWEIS
23.04.2024 14:27:08
Excel - Zellen verketten anhand anderer Spalte
23.04.2024 14:23:45
Gehe zu Tabellenblatt
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1424to1428
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
1424to1428
1424to1428
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Eine PDF mit mehreren Tabellenblättern erstellen

Eine PDF mit mehreren Tabellenblättern erstellen
21.05.2015 12:21:35
Christian
Hallo zusammen!
Ich möchte automatisch eine PDF aus mehreren Tabellenblättern erstellen.
Bisher nutze ich ein Makro das mir das aktuelle Tabellenblatt als PDF speichert, jedoch weiss ich nicht wie ich den VBA code für die anderen Tabellenblätter erweitern kann. (Tabelle 1 bis 4 sollen in die PDF)
Könnt ihr mir bitte helfen?
Danke und viele Grüße
Chris
Hier mein bisheriger Code:
Sub Create_PDF()
Dim DateiName As String
DateiPfad = ThisWorkbook.Path
DateiName = DateiPfad & "\" & Format(Now, "yyyy-mm-dd") & " " & Range("A1") & "_" & ".pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
DateiName _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=True
End Sub

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Eine PDF mit mehreren Tabellenblättern erstellen
21.05.2015 12:48:58
UweD
Hallo
ungeprüft..
Sheets(Array("Tabelle1", "Tabelle2", "Tabelle3", "Tabelle4")).ExportAsFixedFormat Type:=xlTypePDF, usw
Gruß UweD

AW: Eine PDF mit mehreren Tabellenblättern ers
21.05.2015 12:49:16
Michael
Hallo Christian!
Wähle zuerst jene Tabellenblätter aus, die gedruckt werden sollen. Ergänzt in Deinem Code:
Sub Create_PDF()
Dim DateiName As String
DateiPfad = ThisWorkbook.Path
DateiName = DateiPfad & "\" & Format(Now, "yyyy-mm-dd") & " " & Range("A1") & "_" & ".pdf"
Sheets(Array("Tabelle1", "Tabelle2", "Tabelle3", "Tabelle4")).Select 'Nach Bedarf anpassen
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
DateiName _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=True
End Sub
Die Namen der Tabellenblätter 1 bis 4 musst Du natürlich ergänzen.
LG
Michael

Anzeige
Eine PDF mit mehreren Tabellenblättern erstellen
21.05.2015 12:56:46
Nepumuk
Hallo,
teste mal:
Public Sub Create_PDF()
    
    Dim DateiName As String, DateiPfad As String
    Dim LastActiveSheet As Object
    
    DateiPfad = ThisWorkbook.Path
    DateiName = DateiPfad & "\" & Format(Now, "yyyy-mm-dd") & " " & Range("A1") & "_" & ".pdf"
    
    Set LastActiveSheet = ThisWorkbook.ActiveSheet
    
    Worksheets(Array("Tabelle1", "Tabelle2", "Tabelle3", "Tabelle4")).Select
    
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=DateiName, _
        Quality:=xlQualityStandard, IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, OpenAfterPublish:=True
    
    LastActiveSheet.Select
    Set LastActiveSheet = Nothing
    
End Sub

Gruß
Nepumuk

Anzeige
Eine PDF mit mehreren Tabellenblättern erstellen
21.05.2015 12:56:47
Nepumuk
Hallo,
teste mal:
Public Sub Create_PDF()
    
    Dim DateiName As String, DateiPfad As String
    Dim LastActiveSheet As Object
    
    DateiPfad = ThisWorkbook.Path
    DateiName = DateiPfad & "\" & Format(Now, "yyyy-mm-dd") & " " & Range("A1") & "_" & ".pdf"
    
    Set LastActiveSheet = ThisWorkbook.ActiveSheet
    
    Worksheets(Array("Tabelle1", "Tabelle2", "Tabelle3", "Tabelle4")).Select
    
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=DateiName, _
        Quality:=xlQualityStandard, IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, OpenAfterPublish:=True
    
    LastActiveSheet.Select
    Set LastActiveSheet = Nothing
    
End Sub

Gruß
Nepumuk

Anzeige
AW: Eine PDF mit mehreren Tabellenblättern erstellen
21.05.2015 14:21:11
Christian
Super Nepumuk! Funktioniert einwandfrei!
Vielen Dank

PDF mit Ranges
21.05.2015 13:16:55
Alex
Hallo,
wie kann ich diesen Code nicht auf ganze Sheets anwenden sondern nur auf Ranges?
Geht es auch über das Array?
Vielen Dank und Grüße
Alex

AW: PDF mit Ranges
21.05.2015 14:14:29
Nepumuk
Hallo,
wenn sich die in einer Tabelle befinden geht das. Sind sie auf unterschiedlichen Tabellen, dann musst du sie in eine Tabelle zusammenkopieren und diese dann Drucken.
Gruß
Nepumuk

AW: PDF mit Ranges
21.05.2015 15:04:24
Alex
Hallo,
danke für deine Antwort. Leider sind sie in zwei unterschiedlichen Tabellen. Ist es zwingend notwendig die Ranges in eine neue Tabelle zu kopieren? Gibt es nicht einen ähnlich einfachen Code wie oben beschrieben?
Danke und Grüße
Alex

Anzeige
AW: PDF mit Ranges
21.05.2015 15:12:45
Nepumuk
Hallo,
NEIN !!!
Gruß
Nepumuk

AW: Eine PDF mit mehreren Tabellenblättern erstellen
22.05.2015 09:16:00
Schmecks
Hallo,
vielleicht könnt ihr in diesem Zusammenhang auch meine, bisher unbeantwortete Frage, beantworten.
Siehe: https://www.herber.de/forum/messages/1426962.html
mfg

325 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