ich komme einfach nicht weiter.
Ich habe eine Tabelle die nach bestimmten Kriterien gefiltert werden soll.
Art.Nr. Datum Bezeichnung Erstellt
12345 Jan.03 Oberteil Müller
Nun möchte ich über eine Userform mit Comboboxen nach Art.Nr. und Datum Datensätze ausfiltern und zur Auswertung in ein anderes Tabellenblatt kopieren.
Nun hänge ich schon beim Auslesen der Spalten für die Comboboxen fest. Irgendwie werden nicht die richtigen Werte (keine) angezeigt.
Folgenden Code habe ich zum Auslesen der Spalten für die Boxen verwendet, die Boxen bleiben alledings leer.
Private Sub UserForm_Initialize()
Dim col2 As New Collection
Dim iRow2 As Integer
iRow2 = 2
On Error Resume Next
Do Until IsEmpty(Cells(iRow2, 2))
col2.Add Cells(iRow2, 2), Cells(iRow2, 2)
iRow2 = iRow2 + 1
Loop
For iRow2 = 1 To col2.Count
ComboBox2.AddItem col2(iRow2)
Next iRow2
ComboBox2.ListIndex = 0
Dim col1 As New Collection
Dim iRow1 As Integer
iRow1 = 2
On Error Resume Next
Do Until IsEmpty(Cells(iRow1, 1))
col1.Add Cells(iRow1, 1), Cells(iRow1, 1)
iRow1 = iRow1 + 1
Loop
For iRow1 = 1 To col1.Count
ComboBox1.AddItem col1(iRow1)
Next iRow1
ComboBox1.ListIndex = 0
End Sub
kann mir jemand weiterhelfen?
MfG Klaus