Habe in einer Tabelle mehrere Datensätze, mit fortlaufender Nr. die ich per ComboBox einzeln aufrufe und in Tabelle2 übergebe:
Private Sub ComboBox1_Change()
Tabelle2.Range(„D1“).Value = ComboBox1.Value
End Sub
Danach führe ich folgenden Cod aus:
Private Sub CMB_PDF_Click()
Tabelle2.Range("$A$9:$H$91").AutoFilter Field:=1
Tabelle2.Range("$A$9:$H$91").AutoFilter Field:=1, Criteria1:=">0"
Tabelle2.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
ThisWorkbook.Path & „“ & Tabelle2.Range(„H2“).Value & Format(Date, „YYYYMMDD“) & „.pdf“, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False
End Sub
Bis hierher läuft alles gut, nun möchte ich alle NR. hinereinander ausführen. Kann mir hier jemand weiterhelfen, bin mit VBA noch nicht so fit. Besten Dank im Voraus und Lg J