Clever-Excel-Forum

Normale Version: Aus Listbox ausgewählte Tabellen in einzelne PDF speichern
Du siehst gerade eine vereinfachte Darstellung unserer Inhalte. Normale Ansicht mit richtiger Formatierung.
Hallo,
ich habe eine vorhandenen Code aus diesen Forum umstricken in eine Listbox.
Wie bekomme ich das hin das aus der Listbox ausgewählte Tabellen in eine PDF-Datei in einem Verzeichnis speichere.
Der Name der PDF-Datei soll er aus der Tabelle2 A1 Und das Datum aus B1 entnehmen.
Danke für eure Hilfe.

Code:
Private Sub CommandButton1_Click()
   Dim i As Integer
   Dim vntSheetArray()      As Variant
   Dim intSheetCounter      As Long
   Dim bolOpenAfterPublish  As Boolean
   Dim contUFCheckboxes     As Control
   
   If MsgBox("Soll die Datei nach dem Erstellen angezeigt werden?", vbYesNo + vbQuestion, "Frage") = vbYes Then bolOpenAfterPublish = True

   For i = 0 To ListBox1.ListCount - 1
       If ListBox1.Selected(i) = True Then
       
       ReDim Preserve vntSheetArray(0 To ListBox1.ListCount)
         vntSheetArray(i) = ListBox1.ListCount
         ListBox1.Selected(i) = ListBox1.Selected(i) + 1
       
       ActiveWorkbook.Sheets(1).Copy
       
           Worksheets("Tabelle2").ExportAsFixedFormat xlTypePDF, Filename:= _
           "C:\Users\master\Documents\Messungen" & Worksheets("Tabelle2").Range("A1").Value & "_" & Format(Range("B1").Value, "dd.mm.yyyy") & ".pdf", _
           Quality:=xlQualityStandard, _
          IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True

       End If
   Next i
   
   bolOpenAfterPublish = False
   
   Unload Me
End Sub
Hallo,

Code:
Private Sub CommandButton1_Click()
 Dim i As Long, j As Long
 Dim vntSheetArray()      As Variant
 Dim bolOpenAfterPublish  As Boolean
 Dim oWsT2 As Worksheet

 With ListBox1
   For i = 0 To .ListCount - 1
     If .Selected(i) = True Then
       j = j + 1
       ReDim Preserve vntSheetArray(0 To j - 1)
       vntSheetArray(j - 1) = .List(i)
     End If
   Next i
 End With
 
 If j > 0 Then
   bolOpenAfterPublish = MsgBox("Soll die Datei nach dem Erstellen angezeigt werden?", vbYesNo + vbQuestion, "Frage") = vbYes
   Set oWsT2 = ActiveWorkbook.Worksheets("Tabelle2")
   ActiveWorkbook.Sheets(vntSheetArray).Copy
   With ActiveWorkbook
     .ExportAsFixedFormat Type:=xlTypePDF, _
                          Filename:="C:\Users\master\Documents\Messungen" & oWsT2.Range("A1").Value & "_" & Format(oWsT2.Range("B1").Value, "dd.mm.yyyy") & ".pdf", _
                          Quality:=xlQualityStandard, IncludeDocProperties:=True, _
                          IgnorePrintAreas:=False, OpenAfterPublish:=bolOpenAfterPublish
     .Close SaveChanges:=False
   End With
 End If
 
 bolOpenAfterPublish = False
 Unload Me
End Sub

Gruß Uwe
Hallo,
super, vielen Dank!!
Gruß Andy :18: