PDF per Makro mit Auswahl der Spaltenbereiche

Sub PDF() Range("A10:D500").Select Range("A1").Activate Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "C:\Users\Test\Desktop\Testdatei.pdf", Quality:= _ xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _ OpenAfterPublish:=True End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub CheckBox1_Click() If CheckBox1.Value = True Then Cells(1, 10) = "A" Else Cells(1, 10) = "" End Sub Private Sub CheckBox2_Click() If CheckBox2.Value = True Then Cells(2, 10) = "B" Else Cells(2, 10) = "" End Sub Private Sub CheckBox3_Click() If CheckBox3.Value = True Then Cells(3, 10) = "C" Else Cells(3, 10) = "" End Sub Private Sub CheckBox4_Click() If CheckBox4.Value = True Then Cells(4, 10) = "D" Else Cells(4, 10) = "" End Sub Private Sub CommandButton5_Click() Me.Hide Call DruckenMitSpaltenWahl CheckBox1.Value = False CheckBox2.Value = False CheckBox3.Value = False CheckBox4.Value = False End Sub

Hallo!
Kommunikation ist unwahrscheinlich und gefährlich!
- Niklas Luhmann
...hab ich schon mal erwähnt, oder war das ein anderer Christian? ;-)
vielleicht hast du zu den genannten Problemen auch noch eine Idee
Ja, folgend:
Ich benötige denoch ein Userform, ich finde das schöner
Mag sein, davon war aber im ersten Beitrag nie die Rede. Unabhängig von der Ästhetik hast Du geschrieben
Damit ich mal zB. A-B; mal A-C; mal A-B und D; bzw. andere Kombinationen auswählen kann
Das im Makro zu pflegen bzw. zu erstellen ist recht mühsam, wie ich finde - daher mein "Umweg" über einen Zellbereich und Gültigkeistliste. Das was Du da mit Checkboxen machst ist sowieso Overkill - gerade wenn Du, wie Du sagst, keine 4 Spalten sondern evtl. 20 hast - dann musst Du 20 Checkboxen inkl. Code warten, naja...
Dazu kommt, dass Dein Versuch mit =WECHSELN(...) völlig unnötig ist - wenn Du schon mit Checkbox-Werten arbeitest, kannst Du die gleich in eine Variable schreiben, die Du dann statt dem Zellwert (wie bisher in G1) übergibst.
Zu Die Wiederholungszeilen, die Du hier definierst... wird nicht mit angezeigt.
Das ist falsch; in meiner Datei werden sehr wohl Zeilen 10:12 als Wiederholungszeilen angezeigt; Du musst nur aufpassen, dass Du den DruckBereich darunter beginnen lässt; in Deinem Bsp-Fall also erst ab A13, wenn 10:12 die Wiederholungszeilen sind.
Außerdem Wird der Druckbereich angepasst auf eine Seite, damit wird aber der Inhalt viel zu klein, wenn wirklich mal alle 500 Zeilen gefüllt sind.
Das ist auch falsch; der Druckbereich wird nicht auf eine Seite angepasst, sondern hat soviele Seiten, wie eben Spalte D (gem. Deinem Wunsch) verwendete Zeilen aufweist.
Unabhängig davon, wenn Du das über eine Userform machen willst, würde ich es eher so machen, als beim aktivieren der Checkboxen Werte in Zellen zu schreiben: https://www.herber.de/bbs/user/104970.xlsm
Jetzt allerdings ohne Druckvorschau, sondern als PDF-Export!
LG
Michael

Hallo Michael,
nein, das hast du mirgegenüber noch nicht erwähnt :). Aber ich finde deine Art zu belehren/zu erklären sehr sympatisch.
Ja, du hast Recht. Das Sender - Empfänger - Prinzip hat hier wieder voll zugeschlagen.
Ich versuche meine (aus meiner Sicht komplexen) Probleme so einfach wie möglich zu beschreiben und am besten mit einer simplen Musterdatei zu simulieren.
Es fällt mir dabei jedoch öfter auf die Füsse, dass ich damit komplexere Zusammenhänge schlichtweg vergesse zu erklären oder einzubauen.
Ich versuche es nochmal :)
Also ich habe eine Tabelle, die mit verschiedensten Formeln und Zahlen gefüllt ist. Bis auf wenige Eingabefelder ist alles gesperrt.
Ich will jetzt über den PDF Druck quasi verschiedene Ausgabevarianten generieren. Dabei will ich Spaltenbereich vorfefinieren. Da ich ein wenig VBA Kenntnisse habe (Try & Error)
habe ich mir eingebildet aus den Werten A B C D eigenständig Bereiche zu bauen im Skript. Daher dieses einfache Muster :)
Deine Ansätze/Lösungen gefallen mir gut. Bei vielen Sachen verstehe ich schon den Hintergrund. Ich habe das mit dem Druckbereich nur unzureichend getestet,
daher habe ich den Seitenwechsel bei vielen Daten nicht gesehen und durch die Zufallszahlen ist mir der "Kopf" nicht aufgefallen. Danke für die optische Aufwertung/Trennung. Sorry dafür.
Den Zielpfad habe ich bereits angepasst mit:

strPfad = Environ("UserProfile") & "\Desktop\"

den PDF Druck habe ich auch angepasst, damit keine Datein überschrieben werden:

.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
strPfad & "Übersicht " & ActiveSheet.Name & " " & Format(Now, "YYYY.MM.DD hh.mm.ss") & " _
.pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
From:=1, OpenAfterPublish:=True

Erweitern wir doch bitte den Bereich um 5 Spalten (A,B,C,D,E,F,G,H,I)
Spalte D bleibt weiterhin die Bezugsspalte für die maximalen Spalten.
Die Auswahl in der Checkbox würde ich wie folgt simulieren wollen:
1. A
2. A + B
3. A + B + I
4. A + B + G + H + I
Echt nochmal vielen Dank für deine Hilfe. Ich bin froh um jeden zusätzlichen Text, weil ich damit gut lernen kann Zusammenhänge zu verstehen.
LG Christian

Beliebteste Forumthreads (12 Monate)

PDF per Makro mit Auswahl der Spaltenbereiche

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

80 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

PDF per Makro mit Auswahl der Spaltenbereiche

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

80 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread