ListBox Probleme
06.06.2018 09:34:15
Antonio
mit diesem Code lade ich item in der ListBox:
Private Sub ListBox5_Click()
Dim rngFind As Range
Dim sSearch As String
Dim i As Integer
ListBox1.Clear
TextBox2.Value = ListBox5.Value
'sSearch = TextBox2.Value
Set rngFind = Columns("B:B").Find(TextBox2.Value, lookat:=xlWhole)
For i = 13 To 96 Step 6
With Worksheets("Chord1")
ListBox1.AddItem .Cells(ListBox5.ListIndex + 2, i)
ListBox1.List(ListBox1.ListCount - 1, 1) = .Cells(ListBox5.ListIndex + 2, i + 1)
ListBox1.List(ListBox1.ListCount - 1, 2) = .Cells(ListBox5.ListIndex + 2, i + 2)
ListBox1.List(ListBox1.ListCount - 1, 3) = .Cells(ListBox5.ListIndex + 2, i + 3)
ListBox1.List(ListBox1.ListCount - 1, 4) = .Cells(ListBox5.ListIndex + 2, i + 4)
ListBox1.List(ListBox1.ListCount - 1, 5) = .Cells(ListBox5.ListIndex + 2, i + 5)
End With
Next i
Mein Problem, egal was ich in der TextBox2 schreibe wird mir immer nur die erste
Zeile dargestellt, (hier untereinander im ListBox).
Ich Weiß das der Fehler hier sein muss:
ListBox1.AddItem .Cells(ListBox5.ListIndex + 2, i)
ListBox1.List(ListBox1.ListCount - 1, 1) = .Cells(ListBox5.ListIndex + 2, i + 1)
ListBox1.List(ListBox1.ListCount - 1, 2) = .Cells(ListBox5.ListIndex + 2, i + 2)
ListBox1.List(ListBox1.ListCount - 1, 3) = .Cells(ListBox5.ListIndex + 2, i + 3)
ListBox1.List(ListBox1.ListCount - 1, 4) = .Cells(ListBox5.ListIndex + 2, i + 4)
ListBox1.List(ListBox1.ListCount - 1, 5) = .Cells(ListBox5.ListIndex + 2, i + 5)
nach viele Versuche (gescheitert) frage ich nun euch, ich komme leider nicht dahinter.
Vielen Dank in Voraus
Antonio
Anzeige