Probleme mit ListBox
14.01.2009 22:22:49
A.Franz
ich habe ein Problem mit einer ListBox welches ich nicht verstehe.Ich habe eine UserForm mit einer ListBox und einer TextBox.In die TextBox gebe ich einen Suchbegriff ein und wenn ich den CommandButton drücke soll mir die ListBox alle gefundenen Werte der TextBox anzeigen.Funktioniert auch alles prima wenn ich 10-Spalten in der ListBox habe.Nun hat diese aber 14-Spalten und da fängt das Problem an.Ab Spalte 11 bekomme ich immer den Laufzeitfehler "380 Eigenschaft List konnte nicht gesetzt werden"...?!
Ich habe alles mögliche ausprobiert, aber ich kann mir das nicht erklären.
Kann mir bitte jemand helfen?
Folgender Code wird ausgeführt wenn ich den CommandButton drücke:
Private Sub CommandButton1_Click()
Dim LoI As Long
Dim LoZeile As Long
Dim RaFound As Range
Application.ScreenUpdating = False
If TextBox15 = "" Then
ListBox1.RowSource = "A2:N" & LoLetzte
Else
ListBox1.RowSource = ""
With Worksheets("Tabelle1")
Set RaFound = .Columns(1).Find(TextBox15 & "*", .Range("A2"), , xlWhole, , xlNext)
If Not RaFound Is Nothing Then
For LoI = RaFound.Row To LoLetzte
If UCase(Left(.Cells(LoI, 1), Len(TextBox15))) = UCase(TextBox15) Then
ListBox1.AddItem .Cells(LoI, 1).Text
ListBox1.List(LoZeile, 1) = .Cells(LoI, 2).Text
ListBox1.List(LoZeile, 2) = .Cells(LoI, 3).Text
ListBox1.List(LoZeile, 3) = .Cells(LoI, 4).Text
ListBox1.List(LoZeile, 4) = .Cells(LoI, 5).Text
ListBox1.List(LoZeile, 5) = .Cells(LoI, 6).Text
ListBox1.List(LoZeile, 6) = .Cells(LoI, 7).Text
ListBox1.List(LoZeile, 7) = .Cells(LoI, 8).Text
ListBox1.List(LoZeile, 8) = .Cells(LoI, 9).Text
ListBox1.List(LoZeile, 9) = .Cells(LoI, 10).Text
ListBox1.List(LoZeile, 10) = .Cells(LoI, 11).Text
Für jede Hilfe vorab vielen Dank !!!
Gruß Andre