Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 17:19:09
Formel mit Index-Funktion
24.04.2024 16:19:42
SummeWenn / SummeWenns mit Bedingung wenn kleiner als dann
24.04.2024 14:48:50
"Eingabefeld" zwischen zwei Zeilen geht nicht weg.
24.04.2024 14:40:10
Zeilenumbrüche in Textbox zählen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1468to1472
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
1468to1472
1468to1472
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

mehrere Tabellenblätter als PDF abspeichern

mehrere Tabellenblätter als PDF abspeichern
12.01.2016 11:11:16
Martina
Hallo,
ich hätte eine kurze Bitte. Ich versuche gerade ein Makro zu erstellen, welches alle Tabellenblätter einzeln als PDF abspeichert und zwar immer nur die erste Seite jedes Blattes. So weit bin ich bis jetzt gekommen (leider noch nicht so weit ;-)..)
Sub Makro_PDFspeichern()
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Jaenner\ " & Cells(5, 1).Value, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False
End Sub

Vielen Dank für eure Hilfe,
LG

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

Betreff
Datum
Anwender
Anzeige
AW: mehrere Tabellenblätter als PDF abspeichern
12.01.2016 11:25:30
Daniel
Hi
dim wsh as worksheet
for each wsh in thisworkbook.Worksheets
wsh.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:="C:\Jaenner\ " & Cells(5, 1).Value & " " & wsh.Name, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
From:=1, To:=1, _
OpenAfterPublish:=False
next
probiers mal so, das speichert von allen Tabellenblättern die erste Seite des Ausdrucks als PDF.
den Blattnamen solltest du natürlich in den Speichernamen mit aufnehmen, damit sich die PDFs nicht gegenseitig überschreiben.
Gruss Daniel

Anzeige
AW: mehrere Tabellenblätter als PDF abspeichern
12.01.2016 11:33:27
mumpel
Hallo!
Ich würde wsh.Cells(5, 1).Value schreiben.
Gruß, René

AW: mehrere Tabellenblätter als PDF abspeichern
12.01.2016 11:34:28
Martina
Hi Daniel,
leider bekomme ich einen Laufzeitfehler.
Sub Makro1()
Dim wsh As Worksheet
For Each wsh In ThisWorkbook.Worksheets
wsh.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:="Y:\B1-AT-org\B1-CS-AT-V\V3-Grp\Kennzahlen und Reports\BPS Bonus\Wertungsblä _
tter\Jaenner\ " & Cells(5, 1).Value & " " & wsh.Name, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
From:=1, To:=1, _
OpenAfterPublish:=False
Next
End Sub
Kann es sein dass ich das Makro falsch eingegeben hab?
Danke,
LG

Anzeige
AW: mehrere Tabellenblätter als PDF abspeichern
12.01.2016 11:51:27
Daniel
Hi
der code an sich ist richtig.
mir fallen da noch folgende Fehlermöglichkeiten ein:
- du hast dich beim Speicherpfad vertippt
- in der Zelle A5 steht ein Fehlerwert
- die Zelle A5 enthält ein Sonderzeichen, welches in einem Dateinamen nicht zulässig ist.
Gruss Daniel

AW: mehrere Tabellenblätter als PDF abspeichern
12.01.2016 11:38:25
fcs
Hallo Martina,
mit folgenden Ergänzungen werden in einer alle Blätter als einzeln PDF gespeichert, jeweils nur Seite 1.
LG
Franz 
Sub Makro_PDFspeichern()
Dim wks As Worksheet
Dim strFilePDF As String
For Each wks In ActiveWorkbook.Worksheets
strFilePDF = "C:\Jaenner\ " & wks.Cells(5, 1).Value
wks.ExportAsFixedFormat Type:=xlTypePDF, Filename:=strFilePDF, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
From:=1, To:=1, OpenAfterPublish:=False
Next wks
End Sub

Anzeige
AW: mehrere Tabellenblätter als PDF abspeichern
12.01.2016 11:42:03
Martina
Hallo fcs,
danke für deine Nachricht, aber ich bekomme auch hier einen Laufzeitfehler..
wks.ExportAsFixedFormat Type:=xlTypePDF, Filename:=strFilePDF, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
From:=1, To:=1, OpenAfterPublish:=False
dieser Teil des Makros wird gelb markiert.
Danke, LG

AW: mehrere Tabellenblätter als PDF abspeichern
12.01.2016 12:05:25
fcs
Hallo Martina,
evtl. sthen in der Zelle, deren Inhalt in den Dateinamen eingebaut wird unzulässige Zeichen für Dateinamen.
Außerdem solltest du das Leezeichen, das am Anfang des Dateinamen durch ...Jaenner\ " eingebaut wird löschen, es sei denn das ist so beabsichtigt.
LG
Franz 
Sub Makro1()
Dim wsh As Worksheet
Dim strFilePDF As String
For Each wsh In ThisWorkbook.Worksheets
strFilePDF = wsh.Cells(5, 1).Text
'nicht zulässige Zeichen   ? [ ] : | * in Dateinamen ersetzen
strFilePDF = Replace(strFilePDF, "

Anzeige

348 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