2 Bereiche als PDF ausgeben

Forumthread: 2 Bereiche als PDF ausgeben

04.12.2025 10:14:01

Alexander Weis

Hallo,

ich wende mich wieder mal an euch Experten.

Ich habe ein Makro welches mir einen bestimmten Bereich als PDF ablegt. Das passt soweit super.

Hier der Code:

Sub PDFAngebot()



If Range("B3") > "" And Range("B4") > "" And Range("E3") > "" Then

    DateiPfad = Range("G6")

    Dim DateiName As String

   

    DateiName = DateiPfad & Range("B4") & ".pdf"



         Range(Range("H6")).ExportAsFixedFormat Type:=xlTypePDF, Filename:= _

        DateiName, Quality:=xlQualityStandard, _

        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _

        False

        Else

    MsgBox "Bitte vollständig ausfüllen"

End If

End Sub

Der Bereich steht in Zelle H6. Dieser Bereich ist variabel, kann z.B. A1:H32 bis A1:AF32 sein.

Nun möchte ich dass mit dem gleichen Makro noch ein zweiter, nicht variablen Bereich (AG1:AM32) in der gleichen PDF angehängt wird.

Ich hoffe das ist einigermaßen verständlich erklärt.

Vielen Dank schon im Voraus für eure Bemühungen.

Gruß Alex

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: ... erst zusammenführen ...

04.12.2025 10:51:00

schauan
AW: 2 Bereiche als PDF ausgeben

04.12.2025 18:01:53

Kuwer
AW: ... erst zusammenführen ...

04.12.2025 11:05:49

Alexander Weis
AW: ... erst zusammenführen ...

04.12.2025 11:29:05

schauan

AW: ... erst zusammenführen ...

04.12.2025 10:51:00

schauan

... und dann ausgeben ...

AW: 2 Bereiche als PDF ausgeben

04.12.2025 18:01:53

Kuwer

Hallo Alex,

vielleicht auch so:

Sub PDFAngebot()

  Dim DateiName As String

  

  If Range("B3") > "" And Range("B4") > "" And Range("E3") > "" Then

    DateiName = Range("G6").Value & Range("B4").Value & ".pdf"

    

    Range("I:AF").EntireColumn.Hidden = True

    Range(Range("H6").Value).EntireColumn.Hidden = False

    

    Range("A1:AF32").ExportAsFixedFormat Type:=xlTypePDF, Filename:=DateiName, _

                       Quality:=xlQualityStandard, IncludeDocProperties:=True, _

                       IgnorePrintAreas:=False, OpenAfterPublish:=False

    

    Range("I:AF").EntireColumn.Hidden = False

  Else

    MsgBox "Bitte vollständig ausfüllen"

  End If

End Sub

Gruß, Uwe

AW: ... erst zusammenführen ...

04.12.2025 11:05:49

Alexander Weis

Hallo Schauan,

vielen Dank für deine Antwort.

Verstehe ich dich richtig? Beide Bereiche in einem neuen Tabellenblatt zusammenführen und dann als PDF ausgeben?

Wenn ja habe ich keinen Plan wie ich einen variablen Bereich der in einer Zelle steht in einem anderen Blatt anzuzeigen.

Gibt es keine Möglichkeit die beiden Bereiche in dem Makro als PDF zu vereinen?

Gruß Alex

AW: ... erst zusammenführen ...

04.12.2025 11:29:05

schauan

1) Du kannst den Variablen Bereich ja auch kopieren und in das zweite Blatt einfügen. Also Range(Range(...)).Copy / nach A1 oder wohin auch immer
2) Damit Du die richtige Zeile zum Einfügen des zweiten Bereichs hast, nimmst Du z.B. Range("A" & Range(Range(...)).Rows.Count+1).
Du musst in beiden Fällen nur darauf achten, dass Du mit den Ranges immer auf dem richtigen Blatt bist :-) Bekommst Du das hin? Ich bin jetzt erst mal ein Doppelstündchenofflein :-)

Forumthread: 2 Bereiche als PDF ausgeben

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread