PDF aus mehreren Tabellenblättern nach Formel

Forumthread: PDF aus mehreren Tabellenblättern nach Formel

15.08.2024 16:05:40

Torsten Gräser

Hallo liebe Excel-Spezialisten,

ich lese schon länger hier im Forum und habe bislang immer eine Lösung gefunden, die ich nach meinem Bedarf abändern und verwenden konnte. Diesmal irgendwie nicht....

Ich habe eine Datei mit 7 Arbeitsblättern zur Erfassung von Arbeitszeiten, sowie einem Arbeitsblatt mit der Zusammenfassung erstellt.
Die Mitarbeiter füllen einzelne Blätter aus, meist aber nicht alle.

Ich möchte ein Makro erstellen, welches auf Knopfdruck das erste Blatt "Std.-nachweis" als PDF druckt, sowie alle weiteren Blätter, in denen etwas ausgefüllt wurde.
In Blättern, in denen etwas ausgefüllt wurde, ist die Zelle R38 größer als Null. Ich kann auch in einem ausgeblendeten Bereich des Blattes "Std.-nachweis" die Namen oder Nummern der Blätter für die (R38>0) ist, auflisten.

Die für mich einfachste Lösung wäre, wenn ein Makro einen PDF-Druck startet über die gesamte Arbeitsmappe, und dann nur die Seite 1 sowie die Seiten, die noch zu drucken sind.
Als Formel würde ich in einem ausgeblendeten Bereich die Seiten untereinander schreiben über die Formel =WENN('AZ_nach_Plan-1'!R38>0;";2";"")
[diese Formel für alle 7 optional zu druckenden Blätter untereinander, dann in einer weiteren Zelle die Formel =VERKETTEN(Auflistung der einzelnen Zellen)].
Ich lasse absichtlich ein Semikolon vor der Seitenzahl erscheinen, damit die Zahlen so getrennt sind wie sie bei der Seitenauswahl einzutragen sind.
Dann bei der Auswahl der Seitenzahlen das Ergebnis dieser Formel einsetzen - und das genau bekomme ich nicht hin....

Danke schonmal! Gruß, Torsten

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: PDF aus mehreren Tabellenblï¿½ttern nach Formel

16.08.2024 11:36:12

ralf_b

"Dann bei der Auswahl der Seitenzahlen das Ergebnis dieser Formel einsetzen - und das genau bekomme ich nicht hin...."
das kapier ich nicht.
Sollen Seitenzahlen auf die PDF-Seiten gedruckt werden oder wofuer brachst du das?
Fuer den Druck der einzelnen Blaetter + Std- Nachweis in eine Datei reicht die Info mit R38 >0



Sub drucken()



    Dim strSh As String

    Dim sh As Worksheet



   strSh = "Std.-nachweis" & ","



    For Each sh In ThisWorkbook.Worksheets

        Select Case sh.Name

            Case "Std.-nachweis"

            Case Else: If sh.Range("R38").Value > 0 Then strSh = strSh & sh.Name & ","

        End Select

    Next

 

    strSh = Left(strSh, Len(strSh) - 1)

 

    Worksheets(Split(strSh, ",")).Select False

    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=thisworkbook.path & "\test.pdf"

    Worksheets("Std.-nachweis").Select

End Sub

AW: PDF aus mehreren Tabellenblï¿½ttern nach Formel

16.08.2024 11:48:19

TorstenG

Hallo Ralf,

Danke für die geniale Hilfe. Es funktioniert super!
Meine Herangehensweise war zu kompliziert. Vielen vielen Dank!
Gruß, Torsten

Beliebteste Forumthreads (12 Monate)

PDF aus mehreren Tabellenblättern nach Formel

Forumthread: PDF aus mehreren Tabellenblättern nach Formel

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

PDF aus mehreren Tabellenblättern nach Formel

Forumthread: PDF aus mehreren Tabellenblättern nach Formel

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread