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

Forumthread: 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...

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

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

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

Beliebteste Forumthreads (12 Monate)

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

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

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

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

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

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

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread