ListBox, Suchfehler bei eingefügten Daten
04.02.2015 20:16:35
Tom
per ListBox suche ich in einer Adressliste nach Einträgen die entsprechend markiert werden. Das hat eigentlich funktioniert, bzw. funktioniert, wenn ich einige Einträge von Hand in die Tabelle eintrage. Sobald ich aber von einer anderen Tabelle kopierte Daten einfüge, bekomme ich Fehler. Wahrscheinlich ist mein Code etwas zu simpel.
Fehlermeldung:
Laufzeitfehler'-2147352571(80020005)':
Eigenschaft List konnte nicht gesetzt werden. Typkonflikt.
Private Sub CommandButton1_Click()
Dim iRow As Integer
Dim iCol As Integer
For iRow = 0 To lstAdressen.ListCount - 1
For iCol = 0 To lstAdressen.ColumnCount - 1
If lstAdressen.List(iRow, iCol) = TextBox1.Text Then
lstAdressen.Selected(iRow) = True
End If
Next iCol
Next iRow
End Sub
Sub UserForm_Initialize()
Dim wks As Worksheet
Dim ii As Integer
Set wks = Sheets("Adressen")
With wks
For ii = 2 To .Cells(Rows.Count, 1).End(xlUp).Row
lstAdressen.ColumnCount = 10
If Not IsEmpty(.Cells(ii, 1)) Then
lstAdressen.AddItem Cells(ii, 1).Value
lstAdressen.List(lstAdressen.ListCount - 1, 0) = .Cells(ii, 1).Value
lstAdressen.List(lstAdressen.ListCount - 1, 1) = .Cells(ii, 2).Value
lstAdressen.List(lstAdressen.ListCount - 1, 2) = .Cells(ii, 3).Value
lstAdressen.List(lstAdressen.ListCount - 1, 3) = .Cells(ii, 4).Value
lstAdressen.List(lstAdressen.ListCount - 1, 4) = .Cells(ii, 5).Value
lstAdressen.List(lstAdressen.ListCount - 1, 5) = .Cells(ii, 6).Value
lstAdressen.List(lstAdressen.ListCount - 1, 6) = .Cells(ii, 7).Value
lstAdressen.List(lstAdressen.ListCount - 1, 7) = .Cells(ii, 8).Value
lstAdressen.List(lstAdressen.ListCount - 1, 8) = .Cells(ii, 9).Value
lstAdressen.List(lstAdressen.ListCount - 1, 9) = .Cells(ii, 10).Value
End If
Next ii
End With
End Sub