Mehrspaltige ListBox füllen
12.07.2008 16:41:42
edie
im Archiv habe ich nachfolgenden Code gefunden,
dabei wird die ListBox in Abhängigkeit einer TextBox Eingabe gefüllt.
Leider nur die Spalte A. Wie wäre die Syntax, wenn die ListBox Mehrspaltig
wäre und die Spalten A bis F angezeigt bzw. gefüllt wären?
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