Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 00:20:14
Bestimmte Spalten als xls exportieren per Makro
23.04.2024 22:08:10
Auflisten in Spalte VBA
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
23.04.2024 21:29:56
Bestimmte Zellen auf andere Arbeitsblätter kopieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1408to1412
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
1408to1412
1408to1412
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Excel-Tabs als PDF abspeichern

Excel-Tabs als PDF abspeichern
12.02.2015 14:44:47
Nik
Hallo zusammen,
ich habe 5 Excel-Tabs nebeneinander, die ich nacheinander alle in ein PDF abspeichern möchte, welches dann insgesamt 5 Seiten hat. Dazu habe ich den folgenden VBA-Code implementiert:
Sub PDF_Druck()
Dim sPfad As String
sPfad = Worksheets("Controll").Range("H1")
Sheets(Array("Cover_CS", "CS BiBu", "CS NCA", "CS Attrition", "CS ECIF")).Select
Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
sPfad & "\" & Worksheets("Controll").Range("H2"), Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
From:=1, To:=1, OpenAfterPublish:=False
Sheets("Controll").Select
End Sub
Problem ist das nun aber nur das erste Tab im PDF abgespeichert wird. Was mache ich hier falsch? Sieht jemand spontan den Fehler?
Vielen lieben Dank und Gruss
Nik

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Excel-Tabs als PDF abspeichern
12.02.2015 14:57:57
Michael
Hallo Nik!
Ungetestet und quick and dirty:
From:=1, To:=1, OpenAfterPublish:=False
probier mal lieber mit
From:=1, To:=5, OpenAfterPublish:=False
Hilfts?
Michael

AW: Excel-Tabs als PDF abspeichern
12.02.2015 15:03:24
Nik
Hallo Michael,
hat insofern schonmal etwas gebracht dass nun tatsächlich 5 Seiten abgespeichert werden, allerdings erscheint nur eine Zelle, nämlich die, die gerade markiert ist. Also "Selection" interpretiert er eigenartig :-( Er soll ja die ganze Seite im PDF abspeichern, nicht nur die eine Zeile.
Hast Du hier eine Idee?
DANKE und Gruss
Nik

AW: Excel-Tabs als PDF abspeichern
12.02.2015 15:33:35
Hans
Ich habe das auch mal probiert und mit fremder Hilfe recht gut hinbekommen, vielleicht kannst du dir hier ja ein paar Infos rausziehen :)
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim strPfad As String, i As Integer
Dim strDateiname As String
On Error GoTo Fehlerbehandlung
strDateiname = Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 5)
strPfad = "C:\"
For i = 1 To ActiveWorkbook.Worksheets.Count
Sheets(i).ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=strPfad & "\" & strDateiname & "_" & Sheets(i).Name,  _
_
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
Next
Exit Sub
Fehlerbehandlung:
Select Case Err.Number
Case -2147018887
MsgBox "PDF-Export ist fehlgeschlagen!" & vbLf & vbLf & _
"Bitte schließen Sie die PDF-Datei (" & strDateiname & ")!", vbExclamation, " _
PDF-Export"
Case Else
MsgBox Err.Description, vbCritical, "Fehler: " & Err.Number
End Select
End Sub

Anzeige
AW: Excel-Tabs als PDF abspeichern
12.02.2015 15:39:32
Daniel
Hi
Selection.Export exportiert die ausgewählten Zellen.
Gruß Daniel

AW: Excel-Tabs als PDF abspeichern
12.02.2015 14:59:48
Daniel
Hi
du weist die Exportfunktion explizit an, nur das erste Blatt zu drucken: From:=1, To:=1
die beiden Parameter einfach nicht angeben, um alles zu drucken.
Ausserdem zeichnet mein Recorder hier dann eine ActiveSheet.PrintOut auf und nicht Selection.PrintOut
Gruß Daniel

AW: Excel-Tabs als PDF abspeichern
12.02.2015 16:21:57
Nik
Hallo zusammen..
..yepp, das war es! :-) Anstatt "Selection" habe ich nun einfach "ActiveSheet" und voila: nun wird das ganze Blatt ausgedruckt. Und dann natürlich noch von 1 bis 5, das war natürlich der erste Fehler.
Vielen lieben DANK für Eure Hilfe und Euch nun einen schönen Abend!
Gruss
Nik

Anzeige
AW: Excel-Tabs als PDF abspeichern
12.02.2015 16:06:20
Michael
Hallo Nik!
Hmm... sieht für mich so aus, als ob man bei "ExportAsFixedFormat" die "ausgewählten Blätter" nicht übergeben kann. Andere Möglichkeit: Du kopierst die gewünschten Tabellenblätter in eine neue Mappe, exportierst diese als pdf, und schließt diese dann wieder.
Sub SpeichernPdf()
Dim sPfad As String
sPfad = Worksheets("Controll").Range("H1")
Sheets(Array("Cover_CS", "CS BiBu", "CS NCA", "CS Attrition", "CS ECIF")).Copy
With ActiveWorkbook
.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
sPfad & "\" & Worksheets("Controll").Range("H2"), Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
From:=1, OpenAfterPublish:=False
.Close SaveChanges:= false
End With
End Sub
LG
Michael
Anzeige

333 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

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