ich bitte euch um Hilfe!
wie kann ich u. g. Code ändern? ich möchte Spalte 1 und Spalte 2 in Userform-Combobox anzeigen lassen?
Beschreibung:
Bei Eingabe eines Suchbegriffes werden in einer Combobox nur jeweils die Begriffe aufgelistet, deren Zeichenfoge mit der des Suchbegriffes übereinstimmt. Die Combobox wird nach jeder Zeicheneingabe aktualisiert.
in dieser Code wird nur Spalte 1 aufgelistet.
Texbox1:
Dim arr() As Variant
Dim index As Long, iCount As Long
x = IIf(IsEmpty(Range("A65536")), Range("A65536").End(xlUp).Row, 65536)
If TextBox1.Value = "" Then
ListBox1.RowSource = "A5:A" & x
Exit Sub
End If
ListBox1.RowSource = ""
ListBox1.Clear
For index = 5 To x
If LCase(Left(Cells(index, 2), Len(TextBox1))) = LCase(TextBox1) Then
If Sheets("Tabelle1").Cells(index, 2) "" Then
On Error Resume Next
ReDim Preserve arr(0, 0 To iCount)
arr(0, iCount) = Cells(index, 2)
iCount = iCount + 1
ListBox1.Column = arr
End If
End If
Next
End Sub
-------------------------------
UserForm_Initialize:
x = IIf(IsEmpty(Range("A65536")), Range("A65536").End(xlUp).Row, 65536)
ListBox1.RowSource = "A5:A" & x
End Sub
Vielen Dank für die HIlfe im Voraus
Gruß
Ahmadian