Ich möchte eine Tabelle nacheinander nach allen Werte einer Spalte filtern und als PDF-Drucken. Die Spaltennummer in der gefiltert wird, steht unter
Code:
feg = ThisWorkbook.Worksheets("system").Range("E12").Value
und die Zeile, ab der gefiltert werden soll ist 5.
Ich habe folgenden Code um eine Combobox mit den Werten (ohne Duplikate) der entsprechend in
Code:
feg = ThisWorkbook.Worksheets("system").Range("E12").Value
hinterlegten Spalte zu füllen. Diesen Code könnte man doch auch als Schleifenvorlage fürs PDF Drucken wählen oder hab ich da einen Denkfehler. man könnte sicherlich nach dem arrProdukt filtern?!?! Allerdings gibt mir
Code:
msgbox arrProdukt
einen Laufzeitfehler 13 heraus.
Hier also der Code zum Füllen der ComboBox:
Code:
feg = ThisWorkbook.Worksheets("system").Range("E12").Value
MsgBox feg
Dim bolVorhanden As Boolean, Zeile As Long, ListZeile As Long
Dim arrProdukt() As String, lngCount As Long
With wkstemp
ReDim arrProdukt(0 To 0)
For Zeile = 5 To .Cells(.Rows.Count, feg).End(xlUp).Row
If .Cells(Zeile, feg).Value "" Then
If arrProdukt(0) = "" Then
arrProdukt(0) = Trim(.Cells(Zeile, feg).Text)
Else
'Prüfen ob Händler schon in Auswahlliste
bolVorhanden = False
For ListZeile = 0 To lngCount
If arrProdukt(ListZeile) = Trim(.Cells(Zeile, feg).Text) Then
bolVorhanden = True
Exit For
End If
Next
If bolVorhanden = False Then
lngCount = lngCount + 1
ReDim Preserve arrProdukt(0 To lngCount)
arrProdukt(lngCount) = Trim(.Cells(Zeile, feg).Text)
End If
End If
End If
Next
End With
With Me.cob_einzelfilter
.List = arrProdukt()
End With
Achso: die Spaltenzahl der Filterspalte ändert sich je nach Eingabe. bleibt also nicht zwangsläufig gleich.
Ich hoffe, es ist halbwegs verständlich und jemand hat nen kleinen Anstoss!
Das Quellarbeitsblatt nennt sich "temp"
Gruß und Danke Steffen