Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema CheckBox
BildScreenshot zu CheckBox CheckBox-Seite mit Beispielarbeitsmappe aufrufen

Tabs als PDF drucken mit Checkbox-Auswahl

Betrifft: Tabs als PDF drucken mit Checkbox-Auswahl von: herbert grom
Geschrieben am: 30.09.2014 11:53:12

Hallo,

wie kann ich aus einer Arbeitsmappe einige per Checkbox ausgewählte Tabs als pdf speichern? Eine Beispiel-Arbeitsmappe habe ich euch beigefügt.

Servus

https://www.herber.de/bbs/user/92906.xlsm

  

Betrifft: AW: Tabs als PDF drucken mit Checkbox-Auswahl von: Klaus M.vdT.
Geschrieben am: 30.09.2014 12:01:14

Hallo Herbert,
im Prinzip musst du jede Checkbox durchgehen. Das könnte dann so aussehen:

Sub Pseudocode
if Checkbox1 then Tabelle0.alsPdf
if Checkbox2 then Tabelle00.alsPdf
if Checkbox3 then tabelle1.alsPdf
End Sub
ich sehe keinen eleganteren Weg, da du die Arbeitsblätter ja nicht fest den Checkboxen zuordnen kann. VIELLEICHT wenn du sicherstellst, dass der Index der Arbeitsblätter (also Sheets(i)) immer gleich dem Checkboxnamen ist (Also Kontrollkästcheni), dann könnte man eine Schleife verwenden. Wäre mir aber zu fragil.

Grüße,
Klaus M.vdT.

(lasse mal offen)


  

Betrifft: AW: Tabs als PDF drucken mit Checkbox-Auswahl von: herbert grom
Geschrieben am: 30.09.2014 12:35:19

Hallo Klaus,

das könnte ich schon, den CB je 1 TB zuordnen. Was ich auch bräuchte ist, dass man das pdf-file völlig wahlfrei aus den CBs zusammenstellen kann. ZB CB2 & CB 4, oder CB1 & CB2, etc. etc.

Servus


  

Betrifft: AW: Tabs als PDF drucken mit Checkbox-Auswahl von: Rudi Maintaire
Geschrieben am: 30.09.2014 12:04:38

Hallo,
kopiere die ausgewählten Sheets in eine neue Mappe und speichere diese als pdf.

Gruß
Rudi


  

Betrifft: AW: Tabs als PDF drucken mit Checkbox-Auswahl von: herbert grom
Geschrieben am: 30.09.2014 12:39:06

Servus Rudi,

ich kann ja mit dem folgenden Code Tabs auswählen und diese dann in einer pdf speichern.

Sheets(Array("f_offer ttl", "f_offer ttl2")).Select
Sheets("f_offer ttl").Activate
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"D:\2job\excel-helper\Wellness Interaktiv\LED_ProCalc V.1.0 build 164.pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False

Die Frage ist nun, wie kriege ich nun die Tab "f_offer A1" und/oder die Tab "f_offer A2" und/oder die Tab "f_offer A3" etc. in das "Array"? Arrays sind doch Deine Spezialität! ;o)=)

servus


  

Betrifft: AW: Tabs als PDF drucken mit Checkbox-Auswahl von: Rudi Maintaire
Geschrieben am: 30.09.2014 13:08:25

Hallo Herbert,
deine Kriterien sind mir nicht klar.

Ich würde die Sheets erst in einem Dictionary sammeln.
Als Ansatz:

Sub herbert()
  Dim objSheets As Object
  Set objSheets = CreateObject("Scripting.dictionary")
  With Sheets(1)
    If .Shapes("Kontrollkästchen 1").ControlFormat = 1 Then
      objSheets("Tabelle0") = 0
      objSheets("Tabelle00") = 0
    End If
    If .Shapes("Kontrollkästchen 2").ControlFormat = 1 Then objSheets("Tabelle3") = 0
  End With
  If objSheets.Count Then
  Sheets(objSheets.keys).Copy
  With ActiveWorkbook
    .ExportAsFixedFormat xlTypePDF, "c:\test\testa"
    .Close False
  End With
  End If
End Sub
Worksheet.exportasfixedformat geht nur mit einem einzelnen sheet, so viel ich weiß.

Gruß
Rudi

Die Rechnung kommt per Post ;-)


  

Betrifft: wenn die KK als Text ... von: Rudi Maintaire
Geschrieben am: 30.09.2014 13:29:48

Hallo,
... die Blattnamen tragen, dann so:

Sub herbert2()
  Dim objSheets As Object
  Dim shp As Shape
  Set objSheets = CreateObject("Scripting.dictionary")
  With Sheets(1)
    For Each shp In .Shapes
      If shp.FormControlType = xlCheckBox Then
        If shp.ControlFormat = 1 Then
          objSheets(shp.DrawingObject.Caption) = 0
        End If
      End If
    Next
  End With
  If objSheets.Count Then
    Sheets(objSheets.keys).Copy
    With ActiveWorkbook
      .ExportAsFixedFormat xlTypePDF, "c:\test\testa"
      .Close False
    End With
  End If
End Sub
Gruß
Rudi


  

Betrifft: AW: Tabs als PDF drucken mit Checkbox-Auswahl von: herbert grom
Geschrieben am: 30.09.2014 18:30:29

Hallo Rudi,

das ist anscheinend die einzig machbare Lösung. Danke Dir!

Grüße an H.

Servus


 

Beiträge aus den Excel-Beispielen zum Thema "Tabs als PDF drucken mit Checkbox-Auswahl"