Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

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
Antworten 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
Antworten Top
#3
Hallo,
super, vielen Dank!!
Gruß Andy :18:
Antworten Top


Gehe zu:


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