ich verwende folgenden Code (aus dem Forum)um eine Listbox nach Änderung einer Textbox zu befüllen.
Ich möchte nun wenn möglich, diese Listbox 2-spaltig haben und in der 2. Spalte den Eintrag aus Spalte 8 einfügen. Wie kann ich das machen? Habe schon viel herumprobirt es aber nicht hinbekommen.
Private Sub TextBox1_Change()
TextBox2 = TextBox1
Dim arr() As Variant
Dim index As Integer
x = Range("C65536").End(xlUp).Row
If TextBox1.Value = "" Then
ListBox1.RowSource = "C5:C" & x
Exit Sub
End If
ListBox1.RowSource = ""
ListBox1.Clear
For index = 5 To x
If LCase(Left(Cells(index, 3), Len(TextBox1))) = LCase(TextBox1) Then
If Sheets("Tabelle1").Cells(index, 3) <> "" Then
On Error Resume Next
ReDim Preserve arr(0, 0 To iCount)
arr(0, iCount) = Cells(index, 3)
iCount = iCount + 1
ListBox1.Column = arr
End If
End If
Next
End Sub
gruß otto