Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

VBA: via Checkbox best. Arbeitsblätter als pdf sp.

VBA: via Checkbox best. Arbeitsblätter als pdf sp.
18.02.2018 18:09:05
Alexander
Hallo zusammen,
ich nutze zum speichern mehrerer Arbeitsblätter in einem pdf folgende Befehlszeile:
Sheets(Array("Tabelle1", "Tabelle2", "Tabelle3")).Select
Selection.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=ThisWorkbook.Path & "Datenexport.pdf", _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=True
Über ein Userform möchte ich nun die einzelnen Arbeitsblätter über einzelne Checkboxen auswählen können, die dann zusammengefasst gespeichert werden.
Mit meinen VBA-Kenntnissen komme ich hier leider nicht mehr weiter...

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA: via Checkbox best. Arbeitsblätter als pdf sp.
18.02.2018 18:45:21
Sepp
Hallo Alexander,
vom Prinzip her so.
Private Sub CommandButton1_Click()
Dim varSheets() As Variant, lngIndex As Long

If CheckBox1 Then
  Redim Preserve varSheets(lngIndex): varSheets(lngIndex) = "Tabelle1": lngIndex = lngIndex + 1
End If
If CheckBox2 Then
  Redim Preserve varSheets(lngIndex): varSheets(lngIndex) = "Tabelle2": lngIndex = lngIndex + 1
End If
If CheckBox3 Then
  Redim Preserve varSheets(lngIndex): varSheets(lngIndex) = "Tabelle3": lngIndex = lngIndex + 1
End If

Sheets(varSheets).Select
ActiveSheet.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=ThisWorkbook.Path & "Datenexport.pdf", _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=True
End Sub

VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media

Code erstellt und getestet in Office 16 - mit VBAHTML 12.6.0

Gruß Sepp

Anzeige
AW: VBA: via Checkbox best. Arbeitsblätter als pdf sp.
18.02.2018 18:52:02
Alexander
Hallo Sepp,
suuuper! Vielen Dank!
Gruß
Alexander
Fehlerbehandlung!
18.02.2018 19:03:33
Sepp
Hallo Alexander,
man sollte noch die Möglichkeit abfangen, dass keine Checkbox gewählt wurde.
Private Sub CommandButton1_Click()
  Dim varSheets() As Variant, lngIndex As Long

  If CheckBox1 Then
    Redim Preserve varSheets(lngIndex): varSheets(lngIndex) = "Tabelle1": lngIndex = lngIndex + 1
  End If
  If CheckBox2 Then
    Redim Preserve varSheets(lngIndex): varSheets(lngIndex) = "Tabelle2": lngIndex = lngIndex + 1
  End If
  If CheckBox3 Then
    Redim Preserve varSheets(lngIndex): varSheets(lngIndex) = "Tabelle3": lngIndex = lngIndex + 1
  End If

  If lngIndex > 0 Then
    Sheets(varSheets).Select
    ActiveSheet.ExportAsFixedFormat _
      Type:=xlTypePDF, _
      Filename:=ThisWorkbook.Path & "Datenexport.pdf", _
      Quality:=xlQualityStandard, _
      IncludeDocProperties:=True, _
      IgnorePrintAreas:=False, _
      OpenAfterPublish:=True
  End If
End Sub

VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media

Code erstellt und getestet in Office 16 - mit VBAHTML 12.6.0

Gruß Sepp

Anzeige

333 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige