mehrere Tabellen in eine PDF-Datei zusammenführen
03.03.2015 19:21:24
Andy
habe diese Listbox und möchte in dieser Listbox mehrere Tabellen auswählen und als PDF-Datei konvertieren.
Das klappt auch ganz gut.
Nun möchte ich, das diese ausgewählten Tabellen in eine PDF-Datei gespeichert werden.
Der Name und das Datum soll aus Tabelle2 A1 und B1 entnommen werden.
Währe für eine Lösung sehr dankbar!!
Gruß Andy
Private Sub CommandButton1_Click()
Dim i As Integer
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) = True Then
'Sheets(Array(ListBox1)).Selected(i)
ActiveSheet.ExportAsFixedFormat xlTypePDF, Filename:= _
"C:\Users\master\Documents\Messungen\" & Worksheets(ListBox1.List(i)) _
.Range("A1").Value & "_" & Format(Worksheets(ListBox1.List(i)). _
Range("B1").Value, "dd.mm.yyyy")
End If
Next i
Unload Me
End Sub
Private Sub CommandButton2_Click()
Unload Me
End Sub
Private Sub UserForm_Initialize()
For Each sh In ThisWorkbook.Worksheets
Me.ListBox1.AddItem sh.Name
Next
End Sub
Anzeige