Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.10.2025 19:08:54
Verbindung von Excel mit maps
14.10.2025 15:55:14
wenn zwei Werte aus Liste übereinstimmen, dann wahr
14.10.2025 14:57:29
Wenn Datum in Ferienzeit dann Name angeben
14.10.2025 09:39:44
VBA - Excel speichern und schließen (Laufzeitfehler 91)
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1864to1868
1864to1868
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Variable Tabelle in eine PDF

Forumthread: Variable Tabelle in eine PDF

Variable Tabelle in eine PDF
17.01.2022 16:24:13
Aigner
Hallo!
Habe eine Frage und hoffe es kann mir jemand helfen!
Ich habe 5 Tabellenblätter welche über ein Makro verändert und einzeln gedruckt werden, so entstehen 52 A4Blätter. (also jede Kalenderwoche)
Ist es möglich anstatt des Druckvorganges diese 52 A4Blätter in einer PDF-Datei abzuspeichern?

Sub A_Schicht()
Sheets("Bereich 1").Select
Range("B18").Select
ActiveCell.FormulaR1C1 = "A"
Sheets("Bereich 2").Select
Range("B18").Select
ActiveCell.FormulaR1C1 = "A"
Sheets("Bereich 3").Select
Range("B18").Select
ActiveCell.FormulaR1C1 = "A"
Sheets("Bereich 4").Select
ActiveCell.FormulaR1C1 = "A"
Sheets("Bereich 5").Select
Range("B18").Select
ActiveCell.FormulaR1C1 = "A"
Range("B19").Select
Application.ScreenUpdating = False
For i = 53 To 2 Step -1
Sheets("Tabelle1").Select
Range("A" & i).Select
Selection.Copy
Sheets("Bereich " & Range("B" & i)).Select
Range("B17").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Next i
Application.ScreenUpdating = True
End Sub
Wenn es möglich ist Danke schon mal!
Anzeige

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
exportasfixedformat() recherchieren owt
17.01.2022 17:53:27
ralf_b
AW: exportasfixedformat() recherchieren owt
17.01.2022 22:34:03
Aigner
Sorry meine VBA Kenntnisse sind diesbezüglich sehr bescheiden.
wie mache ich das mit meinem Code?
AW: exportasfixedformat() recherchieren owt
17.01.2022 23:59:43
ralf_b
ohne Garantie

Sub A_Schicht()
Dim strSh  As String
Dim i      As Long
Sheets("Bereich 1").Range("B18").FormulaR1C1 = "A"
Sheets("Bereich 2").Range("B18").FormulaR1C1 = "A"
Sheets("Bereich 3").Range("B18").FormulaR1C1 = "A"
Sheets("Bereich 4").Range("B18").FormulaR1C1 = "A"
Sheets("Bereich 5").Range("B18").FormulaR1C1 = "A"
Application.ScreenUpdating = False
For i = 53 To 2 Step -1
Sheets("Bereich " & Range("B" & i)).Range("B17").Resize(51).Value = Sheets("Tabelle1").Range("A2:A53").Value
strSh = strSh & Sheets("Bereich " & Range("B" & i)) & ";"
Next
strSh = Left(strSh, Len(strSh) - 1)
Worksheets(Split(strSh, ";")).Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=ThisWorkbook.Path & "\" & "Dateiname", _
Quality:=xlQualityStandard, IncludeDocProperties:=False, _
IgnorePrintAreas:=True, OpenAfterPublish:=True
Application.ScreenUpdating = True
End Sub

Anzeige
AW: exportasfixedformat() recherchieren owt
18.01.2022 07:17:58
Aigner
Danke für den Code.
Leider bekomme ich hier einen Fehler.
Objekt unterstützt diese Eigenschaft oder Methode nicht.
strSh = strSh & Sheets("Bereich " & Range("B" & i)) & ";"
AW: exportasfixedformat() recherchieren owt
18.01.2022 07:26:54
ralf_b
na sowas.
was steht denn in B & ZeilennNr? Ich vermute die Nr für den Blattnamen. Dann so. Sollten weiter Fehler auftreten, dann wäre es an der Zeit eine Beispielmappe zu zeigen.

strSh = strSh & "Bereich " & i & ";"

Anzeige
AW: exportasfixedformat() recherchieren owt
18.01.2022 10:16:28
Aigner
Hast recht, hier ist meine Datei.
https://www.herber.de/bbs/user/150469.xlsm
Es kommt wieder ein Fehler und es wird in jeden "Bereich" 1-52 eingetragen
ich bin....
18.01.2022 17:44:25
ralf_b
dann mal raus.
Deine Datei entspricht sogar nicht dem was ich aus deiner Beschreibung abgeleitet habe. Deshalb habe ich keine richtige Meinung mehr für eine Lösung.
Viel Erfolg bei dem anderen Kollegen.
gruß
rb
Anzeige
AW: ich bin....
18.01.2022 18:12:20
Aigner
Versteh ich nicht ganz.
Möchte das selbe was mein Ausdruck macht, nur eben in eine PDF Datei.
https://www.herber.de/bbs/user/150494.xlsm
Vielleicht schaust noch mal darauf. Habe es in der Datei übersichtlicher gemacht und erklärt.
Wenn nicht trotzdem vielen Dank!
Anzeige
AW: Variable Tabelle in eine PDF
18.01.2022 11:25:02
Herbert_Grom
Hallo Ewald,
wenn du in deiner Datei etwas mehr Infos hättest, könnte ich dir evtl. helfen. Am Besten wäre die Original-Datei, mit unverfänglichen Inhalten. Du kannst mir aber auch deine komplette Original-Datei per eMail senden (meine findest du hier in den Profilen). Du bekommst dann von mir eine Datenschutzvereinbarung, nach den Vorschriften des Bundesdatenschutzgesetzes. Überlegs dir.
Servus
Anzeige
AW: Variable Tabelle in eine PDF
18.01.2022 11:55:26
Aigner
Hallo!
Es soll eine PDF erstellt werden aus den 5 Bereichen. Das Schema der Reihenfolge ergibt sich aus der Tabelle 1 pro Schicht.(A-E)
Ich möchte für jede Schicht eine PDF-Datei erstellen welche dann 52 Seiten umfasst.
AW: Variable Tabelle in eine PDF
18.01.2022 16:49:34
Aigner
Vielleicht bringen wir das hier fertig.
Bekomme wenn ich den Button PDF drücke einen Fehler bei
Worksheet (Split.......
https://www.herber.de/bbs/user/150491.xlsm
MFG
Anzeige
;

Forumthreads zu verwandten 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
Dateiname in Einzelbestandteile umwandeln
Axel

Hallo
ich habe folgendes Problem:
ich speichere eine Datei nach einer ganz bestimmten Syntax:
Projektnummer_Projektname_Dokument_1.xls
Wie kann ich aus dem abgespeicherten Namen (also aus activeworkbook.name) die einzelnen Bestandteile auslesen und als String wider ausgeben? (Sp...
24.08.2009 17:38:45
Thread-ID: 1098205
10 Beiträge
Makro Datei als Kommentar in PDF implementieren
Alex

Hallo zusammen,
ich habe ein ziemlich umfrangreiches excel tool, dieses simuliert einige technische zusammenhänge, erstellt daraus resultierend, angebote, füllt automatisch Förderanträge aus uvm....
Am Ende erhält jeder Kunde eine Vielzahl von PDF Dateien.
Für diese ganzen Dateien h...
30.09.2009 19:49:14
Thread-ID: 1106503
2 Beiträge
Makro Datei als Kommentar in PDF implementieren
Alex

Hallo zusammen,
ich habe ein ziemlich umfrangreiches excel tool, dieses simuliert einige technische zusammenhänge, erstellt daraus resultierend, angebote, füllt automatisch Förderanträge aus uvm....
Am Ende erhält jeder Kunde eine Vielzahl von PDF Dateien.
Für diese ganzen Dateien h...
01.10.2009 08:01:37
Thread-ID: 1106504
2 Beiträge
Blatt per VBA mit FreePDF als PDF-Datei sichern
Mike

Hallo,
wer kann mir einen Weg oder Beispiel zeigen, wie ich per VBA mit FreePDF ein Worksheet als PDF-Datei speichern kann?
Vielen Dank, Mike.
02.10.2009 00:05:48
Thread-ID: 1106727
5 Beiträge
WORD-Datei in EXCEL-Datei umwandeln
Werner

Excel-Level: befriedigend
Hallo Freunde,
habe mal ein Frage, die sich auf Excel und Word zugleich bezieht: Was muss man tun, um ein mit WORD
erstelltes Manuskript, also eine Word-Datei, in eine Excel-Datei umzuwandeln. Die hier zur Debatte stehende WORD-Datei ist wie
folgt auf...
22.10.2009 14:24:46
Thread-ID: 1111301
7 Beiträge
Anzeige
2 Tabellenblätter in ein PDF nicht möglich
Joachim

Hallo,
ich möchte per VBA das 3. und 4. Tabellenblatt als PDF in EIN Dokument bringen:
Dim n As Integer
Sheets(3).Select
For n = 3 To Sheets.Count
Sheets(n).Select False
Next
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:="Adobe PDF", Collate:=True
25.11.2009 08:17:45
Thread-ID: 1119865
6 Beiträge
In PDF konvertieren
Michael

Hallo liebe Excel Freunde,
anbei meine Frage die mir Kopfzerbrechen bereitet. Ich konvertiere eine Excel Datei mit verschiedenen Tabellenblättern in das PDF Format, über Drucken - Adobe PDF. Er konvertiert alles bis auf das letzte Tabellenblatt, dafür erstellt er ein neues PDF-File. Wisst i...
25.11.2009 16:48:17
Thread-ID: 1120037
3 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
Pivot Tabelle in Tabelle mit Spalten umwandeln??
okgi

Hallo liebe Excel Gemeinde!!
Meine Frage ist: wie kann ich eine Pivot Tabelle in eine Tabelle mit Spalten automatisiert überführen?
Zum Beispiel:
Pivot Tabelle
________KST_____________
Konto_.......1...........2...........3..
__A___.100,00................31,99
__B___...
15.12.2009 17:35:51
Thread-ID: 1124143
3 Beiträge
mit PDF Creator ein Tabellenblatt als pdf abspeich | Herbers Excel-Forum
Horst
Hallo
ich will ein Tabellenblatt als pdf abspeichern.
Dank diesem Forum habe ich einen Code gefunden, welcher jedoch bei mir nicht richtig funktioniert.
Wenn ich bei Break (siehe Code) stoppe, ist der PDFCreator geöffnet, das umzuwandelne Tabellenblatt
ist eingetragen und der Status...
14.01.2010 16:16:29
Thread-ID: 1129991
6 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
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige