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
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
Anzeige