Das Clever-Excel-Forum.de - Treffen
... 14.-16. September 2018 im Allgäu ...

Aus Listbox ausgewählte Tabellen in einzelne PDF speichern
#1
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
to top
#2
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
to top
#3
Hallo,
super, vielen Dank!!
Gruß Andy 18
to top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste