Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
19.04.2024 13:58:02
Set Worksheet geht im O365 aber im Excel 2016 nicht
19.04.2024 13:49:38
Per Kopfdruck als pdf speichern und Mail erstellen
19.04.2024 12:58:59
Daten einfügen aus anderem Sheet
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1532to1536
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
1532to1536
1532to1536
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

mehrere Bereiche in ein .pdf drucken und speichern

mehrere Bereiche in ein .pdf drucken und speichern
11.01.2017 08:32:54
Walter
Hallo!
AUSGANGSSITUATION:
Ein Makro erzeugt eine variable Anzahl an .pdf-Seiten (je nach gewählten Bereichen zwischen 1 und 13 Seiten) und speichert diese einzeln unter einem Pfad, der im Makro fix definiert ist.
ZIEL:
Es sollen die einzelnen Seiten in ein .pdf gedruckt werden und der Speicherort für dieses .pdf frei gewählt werden können.
´Michael´ hat bereits versucht mir zu helfen, leider war dies nicht das angestrebte Ergebnis - dennoch Danke.
Kann mir dabei jemand behilflich sein?
Danke gleich im Voraus.
Beste Grüße
Walter

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
ich sehe kein Makro..
11.01.2017 08:48:13
UweD
Es wäre sicherlich hilfreich dein Makro zu sehen,
und noch besser, eine Musterdatei, aus der die PDF's erzeugt werden sollen.
LG UweD
AW: ich sehe kein Makro..
11.01.2017 09:22:46
Walter
Hallo UweD!
Anbei die Ausgangssituation - das Makro ist übrigens im Wesentlichen von Dir - mein Dank sollte Dich erreicht haben :-).
1. Der User wählt was er gedruckt haben will:
Userbild
2. Das Ergebnis:
Userbild
3. Das Makro dazu:
Userbild
Meine Bitte:
Wie muss das Makro aussehen um
a) die gewählten Ausdrucke in ein .pdf zu bringen und
b) gefragt zu werden, wo ich dieses .pdf hingespeichert haben will?
VIELEN DANK IM VORAUS!!!
Liebe Grüße
Walter
Anzeige
AW: ich sehe kein Makro..
11.01.2017 10:01:26
UweD
Hallo Walter
ja, Code erkenne ich wieder.
Aber warum zeigst du hier Bilder und nicht die Datei selbst?
Das Gleiche mit dem Code. Hier tippt niemand sowas ab, um damit rumzuprobieren.

Entweder muss direkt beim "Abarbeiten" der Einträge eine Datei erzeugt werden.
z.B. durch das Zuweisen von mehreren Druckbereichen;
oder du könntest auch ein externes Programm benutzen um die einzelnen PDF's zu kombinieren
(ich nutze 7-PDFSplitMergePortable)
LG UweD
AW: ich sehe kein Makro..
11.01.2017 10:49:57
Walter
Hallo UweD!
Die Datei kann ich leider nicht rausgeben, daher die Bilder - den Code kann ich natürlich einstellen - sorry, mein Fehler:

Sub Drucken()
'Dim LR&, SP%, Z, Arr, TB, RNG$
Dim Pfad$, Datei$
SP = 2 'Spalte mit den Bereichen
Pfad = "F:\020 Konzeption intern\_BerechnungsInstrumente\_Vorlagen bzw. leere Modelle\ _
RechenmodellNeu\AusdruckeAusRechenmodell\"
With Sheets("DRUCK")
LR = .Cells(.Rows.Count, SP).End(xlUp).Row 'letzte Zeile der Spalte
For Each Z In .Range(.Cells(2, SP), .Cells(LR, SP))
If Z  "" Then
Datei = .Cells(Z.Row, SP - 1)
Arr = Split(Z, "!")
Set TB = Sheets(Arr(0))
Rng = Arr(1)
TB.PageSetup.PrintArea = Rng
'PDF
TB.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Pfad & Datei & ".PDF", IgnorePrintAreas:=False
'oder Druck
'TB.PrintOut IgnorePrintAreas:=False
End If
Next
End With
Range("F2:F4").Select
ActiveCell.FormulaR1C1 = "nein"
Range("F5").Select
ActiveCell.FormulaR1C1 = "nein"
Range("F6").Select
ActiveCell.FormulaR1C1 = "nein"
Range("F7").Select
ActiveCell.FormulaR1C1 = "nein"
Range("F8").Select
ActiveCell.FormulaR1C1 = "nein"
Range("F9").Select
ActiveCell.FormulaR1C1 = "nein"
Range("F10").Select
ActiveCell.FormulaR1C1 = "nein"
Range("F11").Select
ActiveCell.FormulaR1C1 = "nein"
Range("F12").Select
ActiveCell.FormulaR1C1 = "nein"
Range("F13:F14").Select
ActiveCell.FormulaR1C1 = "nein"
Range("F15").Select
ActiveCell.FormulaR1C1 = "nein"
Range("G6").Select
ActiveCell.FormulaR1C1 = "ja"
Range("G7").Select
ActiveCell.FormulaR1C1 = "ja"
Range("G12").Select
ActiveCell.FormulaR1C1 = "ja"
Range("G15").Select
End Sub

-----------------------------------------------------------------------------------------------------
Eine denkbare andere Variante wäre, den Ausdruck für die gewählten Bereiche vorher abzufragen über welchen Drucker gegangen werden soll (je nach vorhandenen Druckern ODER über .pdf) und im Falle des .pdf´s gefragt wird, wohin damit. Das wäre sogar besser.
Das mit dem mergen scheitert leider daran, dass ich nicht davon ausgehen darf, dass der User ein entsprechendes Programm hat bzw. ich annehmen muss, dass ihm die Beschaffung nicht zumutbar ist.
In Summe eine kniffelige Aufgabe mit blöden Einschränkungen (Datei darf nicht raus, kein/zu wenig KnowHow hausintern, Zeit drängt, etc.) - umsomehr die Hoffnung, dass jemand helfen kann.
Danke für Euer Interesse und Eure Hilfe.
LG
Walter
Anzeige
offen
11.01.2017 11:11:16
UweD

326 Forumthreads zu ähnlichen Themen

Info aus mehreren Spaltenüberschriften entnehmen
mopitz

Hallo,
Da mein Problem etwas komplex ist, füge ich eine Datei zur Veranschaulichung an.:
https://www.herber.de/bbs/user/56058.xls
Ich möchte in der ersten Tabelle zu den Spalte "Kunde"(kommt nur einmal vor) die Technologie reinschreiben lassen. Diese Info erhalte ich aus der "Tabell...
16.10.2008 13:34:19
Thread-ID: 1016847
7 Beiträge
Anzeige
mehrere Wenn abfragen in einer Formel
skippy

Hallo stehe im mom auf den schlauch
möchte gern folgende Abfrage machen krieg aber die Formel nicht hin
Wenn e7-d7>=10;2;0 wenn e7-d7>8;1,5;0 wenn e7-d7>6;1;0 wenn e7-d7>4;0,5;0
Wie muss ich die Formel schreiben, bekomme immer einen Syntaxfehler wenn ich daraus eine Fo...
01.01.2009 21:42:55
Thread-ID: 1036302
4 Beiträge
Filter - Kriterium in mehreren Spalten
walter

Hallo,
ich stöbere nun schon seit zwei Tagen in der Excel-Hilfe und in diesem Forum und finde keine Lösung für mein Problem:
Ich habe eine Liste, in der jeder Datensatz 5 Kategorien zugeteilt ist. Das Problem ist dabei, dass ein und dieselbe Kategorie in verschiedenen Spalten stehen kan...
15.01.2009 08:33:57
Thread-ID: 1039897
3 Beiträge
Anzeige
Auswahlliste über mehrere Spalten
Roland

Hallo zusammen,
folgendes Problem:
In Tabellenblatt 2 sind Kontaktdaten vorhanden.
Nun möchte ich im Tabellenblatt 1 im Feld "Name" eine Auswahlliste mit Bezug auf Tabellenblatt 2 erstellen. Das ist mit der Gültikeitsprüfung ja auch kein Problem.
Jetzt möchte ich, dass auch in d...
17.07.2009 10:49:06
Thread-ID: 1089312
19 Beiträge
Sverweis und suche suche über mehrere Spalten
Sabine

Hi
Folgendes Problem. In Tabelle1 Spalte A stehen werte, die in Tabelle 2 in Spalte B-F gesucht werden sollen und dann der wert aus Spalte X ausgegeben werden.
Mit Sverweis geht das nicht, aber wie dann?
30.07.2009 18:44:34
Thread-ID: 1092620
2 Beiträge
Zählenwenn in mehreren Ranges Highspeed
Jan

Hallo,
Ich muss in mehreren Bereichen überprüfen, ob eine der Zellen in den Bereichen einen Wert enthält. Da die Excelfunktion "Zählenwenn" nur einen Bereich unterstützt, habe ich mir folgende Funktion in VBA geschrieben.
Function ZÄHLE(Wert As String, ParamArray Rng() As Variant) As I...
03.10.2009 14:08:20
Thread-ID: 1106968
15 Beiträge
Bedingte Formel über mehrere Spalten/Zeilen?
Sebastian

Ich möchte, das ein bestimmter Bereich Rot wird wenn in einer Zelle ein "ja" steht.
z.B. sollen die Felder A10 bis G10 Rot werden wenn in der Spalte M10 ein ja steht.
Das geht ja auch mit der "Bedingten Formatierung". Dort hatte ich eingegebem:
Zellwert ist ungleich =$M$10="ja" (un...
22.10.2009 10:51:11
Thread-ID: 1111308
2 Beiträge
Formeln in mehreren Sheets ändern
Sven

Hallo,
ich habe eine Tabelle mit meheren Seiten
Persdaten
Stammdaten
23
24
25
usw.
jetzt habe ich gemerkt, dass ich in allen tabellen Formelfehler habe (außer in Persdaten)
jetzt möchte ich per Makro gern in allen Tabellenblättern diese Fehler beheben.
wi...
16.11.2009 02:44:50
Thread-ID: 1117475
2 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
6
2
3
2
2
18
1
14
1
1
2
2
2
5
2
4
3
5
8
4
3
3
3
11
13