Excel VBA Schleife bauen
22.12.2016 17:02:59
Jenny
Folgendes Problem:
Ich habe in der Tabelle1 fortlaufende ID´s stehen, dich ich über die ComboBox1 aufrufe und an Tabelle2 übergebe:
Private Sub ComboBox1_Change()
Tabelle2.Range("D1").Value = ComboBox1.Value
End Sub
Danach Exportiere ich den gefilterten Bericht in Tabelle2 über folgenden Befehl: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
Dies läuft soweit alles gut, solange ich nur eine ID als PDF exportiere. Nun möchte ich aber die ID´s automatisiert hintereinander gemäß dem oben genannten Ablauf durchlaufen lassen. Bin neu auf dem Gebiet VBA und bräuchte hierzu eure Hilfe. Besten Dank und Lg J