Office: PDF erzeugen, mehrere Tabellenblätter, Button+Checkbox

peter-pan1234 · 6. Februar 2016

Moin!

Ich möchte nach Klick auf einen Button mehrere Tabellenblätter als PDF speichern.
Der Button soll sich dabei auf dem Tabellenblatt1 befinden und gespeichert werden soll Tabelle2, Tabelle3 usw.

Ideal wäre es, wenn man dann noch über Checkboxen auswählen kann, welches Tabellenblätter gespeichert werden sollen.

Nur ein Blatt als PDF speichern habe ich bereits mit diesem Makro hinbekommen:
Code:

Sub PDFerzeugen_Klicken()
Dim strName As String

strName = Environ("USERPROFILE") & "\Desktop\"

ActiveSheet.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=strName & ActiveSheet.Name & ".pdf", _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=True, _
OpenAfterPublish:=True
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Kann mir hier jemand weiterhelfen?

Vielen Dank im Voraus!!

:)

Beverly · 8. Februar 2016

Hi,

ich nehme an, du verwendest ActiveX-Steuerelemente im Tabellenblatt? Schau dir die angehängte Mappe an.

peter-pan1234 · 28. Februar 2016

Moin!

Sorry für die späte Antwort! Bin leider erst jetzt dazu gekommen es richtig zu testen!

Erst einmal danke für die schnelle Hilfe! Dein Beispiel funktioniert natürlich wunderbar.
Wenn ich es nun in meine Arbeitsmappe kopiere, bekomme ich bei
ThisWorkbook.Sheets(arrTabs).Copy

den Fehler "Index außerhalb des gültigen Bereichs".

Was mache ich hier falsch?
Meine Tabellenblätter haben Bezeichnungen, werden aber bei den Eigenschaften auch mit "(Name) Tabelle1" angezeigt.
Insgesamt habe ich 5 Tabellenblätter und in Tabelle1 sind die Checkboxen (4 Stk.).

Könntest du mir hier noch einmal helfen?

Vielen Dank!

Gruß

Beverly · 28. Februar 2016

Hi,

ich nehme an, die CheckBoxen haben eine andere Aufschrift als die Tabellenblätter heißen? Das ist die Grundlage für das Funktionieren des Codes.

peter-pan1234 · 28. Februar 2016

Ja daran könnte es gelegen haben. Ich habe es geändert und es funktioniert.
Super, vielen Dank!

Nur leider habe ich jetzt den selben Fehler wenn ich eine weitere Checkbox hinzufüge die nicht einem Tabellenblatt zugeordnet ist. Stattdessen soll diese Checkbox bestimmte Zeilen ein- und ausblenden.
Wie kann ich diese Checkbox nutzen ohne das der o.g. Fehler auftritt? Oder geht das bei der Lösung hier gar nicht?

Danke noch einmal für deine tolle Hilfe!

Beverly · 28. Februar 2016

Wenn auch noch andere CheckBoxen vorhanden sind, muss man es anders lösen: erst alle relevanten Tabellenblätter in ein Array einlesen und beim Durchlaufen der CheckBoxen dann prüfen, ob die Aufschrift (=Tabellenname) in dem Array vorhanden ist

Code:

Option Explicit
Option Base 1

Private Sub PDFerzeugen_Click()
Dim arrTabs
Dim wksTab As Worksheet
Dim intZaehler As Integer
Dim oobElement As OLEObject
Dim strName As String
Dim varVorhanden As Variant
ReDim arrTabs(1)
ReDim arrTabsGes(1 To Worksheets.Count - 1)
intZaehler = 1
' Schleife über alle Tabellen
For Each wksTab In Worksheets
' Tabellenname ist vom aktiven
If wksTab.Name ActiveSheet.Name Then
' Tabellenname ins Array schreiben
arrTabsGes(intZaehler) = wksTab.Name
intZaehler = intZaehler + 1
End If
Next wksTab
strName = Environ("USERPROFILE") & "\Desktop\Mappe.pdf"
intZaehler = 1
For Each oobElement In ActiveSheet.OLEObjects
If oobElement.progID = "Forms.CheckBox.1" Then
If oobElement.Object Then
' mittels Vergleich prüfen ob CheckBox-Aufschrift im Array der Tabellennamen
varVorhanden = Application.Match(oobElement.Object.Caption, arrTabsGes, 0)
' ist vorhanden (falls nicht, dann steht auf der Variablen kein numerischer Wert)
If IsNumeric(varVorhanden) Then
ReDim Preserve arrTabs(1 To intZaehler)
arrTabs(intZaehler) = oobElement.Object.Caption
intZaehler = intZaehler + 1
End If
End If
End If
Next oobElement
If arrTabs(1) "" Then
Application.ScreenUpdating = False
ThisWorkbook.Worksheets(arrTabs).Copy
With ActiveWorkbook
.ExportAsFixedFormat _
Type:=xlTypePDF, Filename:=strName, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=False
.Close False
End With
Application.ScreenUpdating = True
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

peter-pan1234 · 28. Februar 2016

Super! Klappt hervorragend! Vielen Dank!

Das du es so schnell hinbekommst, wirklich beeindruckend!

Office: PDF erzeugen, mehrere Tabellenblätter, Button+Checkbox

PDF erzeugen, mehrere Tabellenblätter, Button+Checkbox

PDF erzeugen, mehrere Tabellenblätter, Button+Checkbox

PDF erzeugen, mehrere Tabellenblätter, Button+Checkbox

PDF erzeugen, mehrere Tabellenblätter, Button+Checkbox - Similar Threads - PDF erzeugen Tabellenblätter

PDF-Dateien einlesen und Hyperlink erzeugen

Schwärzung von Zellen bei PDF-Erzeugung

Excel beim Speichern automatisch PDF erzeugen/ersetzen

Bericht: Je Gruppe eine PDF erzeugen

Mit VBA PDF erzeugen

VBA: PDF aus mehreren Tabellenblättern erzeugen

PDF-Erzeugung funktioniert nicht mehr