Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
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
1660to1664
1660to1664
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Drucken von Druckbereichen nach Zellinhalt

Forumthread: Drucken von Druckbereichen nach Zellinhalt

Drucken von Druckbereichen nach Zellinhalt
02.12.2018 18:24:31
Druckbereichen
Hallo,
ich hoffe mir kann hier im Forum geholfen werden.
In einer umfangreiche Exceltabelle sind Druckbereiche angelegt, welche in Abhängikeit vom Inhalt einzelner Zellen in einer pdf-Datei gedruckt werden sollen.
Ich möchte das an diesem Beispiel aufzeigen:
SpalteA SpalteB SpalteC
Text1 Druck A20:K29
Text2 kein_Druck A30:K39
Text3 kein_Druck A40:K49
Text4 Druck A50:K59
Text5 Druck A60:K69
Je nach Inhalt der Zellen (Druck, kein_Druck) sollen die Bereich in der Spalte C geruckt werden.
Habe bis jetzt alle Seiten über VBA gedruckt, mit Angabe des Dateinamen aus Zellinhalten. 

Sub Datei_drucken_als_PDF()
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Range("A6") & "_" & Format(Date, "YYYYMMDD") & "_" & Range("A7") & ".pdf", Quality _
:=xlQualityStandard, IncludeDocProperties:=True, PrintArea:  IgnorePrintAreas:=False, _
OpenAfterPublish:=False
End Sub
Ich würde mich freuen, wenn mich hier jemand unterstützen kann.
Viele Grüße
Jens
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Drucken von Druckbereichen nach Zellinhalt
06.12.2018 16:03:14
Druckbereichen
Hallo Jens,
in diese Richtung sollte es funktionieren. 
Sub Datei_drucken_als_PDF()
Dim wks As Worksheet
Dim Zeile As Long, rngBereich As Range
Set wks = ActiveSheet
With wks
.Range(.Rows(20), .Rows(69)).Hidden = False
.PageSetup.PrintArea = _
.Range(.Cells(20, 3), .Cells(69, 3)).Address(False, False, xlA1)
For Zeile = 1 To 5
If .Cells(Zeile, 2).Value = "kein_Druck" Then
.Range(.Cells(Zeile, 3).Text).EntireRow.Hidden = True
End If
Next
.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
.Range("A6") & "_" & Format(Date, "YYYYMMDD") & "_" & Range("A7") & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=False
.Range(.Rows(20), .Rows(69)).Hidden = False
End With
End Sub

LG
Franz
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