Private Sub TextBox1_Change()
Dim LRow As Long, i As Long
Dim wks1 As Worksheet
Set wks1 = Worksheets("Tabelle1")
LRow = wks1.Cells(Rows.Count, 1).End(xlUp).Row
With Me
ListBox1.Clear
For i = 3 To LRow
If UCase(Left(wks1.Cells(i, 1).Text, Len(TextBox1.Text))) = UCase(TextBox1.Text) Then
With .ListBox1
.AddItem wks1.Cells(i, 1)
End With
End If
Next i
End With
End Sub
Kann mir jemand helfen?
Vielen Dank im Voraus.
Grüße
With .ListBox1
.AddItem wks1.Cells(i, 1)
.list(.listcount-1,1) = wks.cells(i,2)
.list(.listcount-1,2) = wks.cells(i,3)
End With
und in der Eigenschaft "ColumnCount" der Listbox die entsprechende Spaltenzahl einstellen.
ggf müssen die Abstandsbreiten der Spalten noch in der Eigenschaft "ColumnWidths" angepasst werden.
Gruß, Daniel