Suche gestallten
01.11.2015 22:40:18
Ewgenij
Ich versuche eine Suche zu gestalten und habe Schwierigkeiten. Mein Problem ist das ich nicht weiß, wie ich die Daten in der Listbox2 ausgeben lassen kann.
Ich habe zwei Comboboxen (Combobox7 und Combobox8) erstellt dort soll nach Kundennummer oder Datum gesucht und in Listbox2 angezeigt bzw. sortiert nach Datum oder Kundennummer angezeigt werden.
Ich habe durch Zufall(besser gesagt ein Code gefunden) es so hinbekommen das ich die Comboboxen mit werten aus der Excel Tabelle füllen kann. Aber die Combobox7 zeigt nicht alle Werte aus der Tabelle an!
bRow = IIf(IsEmpty(Range("B65536")), Range("B65536").End(xlUp).Row, 65536)
On Error Resume Next
ComboBox7.AddItem "alle"
For iRow = 2 To bRow
col.Add Cells(iRow, 2), Cells(iRow, 2)
If Err = 0 Then
ComboBox7.AddItem Cells(iRow, 2)
Else
Err.Clear
End If
Next iRow
ComboBox8.AddItem "alle"
For iRow = 2 To aRow
col.Add Cells(iRow, 3), Cells(iRow, 3)
If Err = 0 Then
ComboBox8.AddItem Cells(iRow, 3)
Else
Err.Clear
End If
Next iRow
On Error GoTo 0
https://www.herber.de/bbs/user/101180.xlsm
Vielen Dank im Voraus!
Gruß Ewgenij