Kann mir jemand sagen warum ich bei dieser Anweisung einen Fehler bekomme:
For i = 1 To ListBox1.ListCount
For j = 2 To ListBox1.ListCount
If ListBox1.List(i) = ListBox1.List(j) Then
ListBox1.RemoveItem j
End If
Next j
Next i
Fehler: Laufzeitfehler '381': Eigenschaft List konnte nicht abgreufen werden. Index des Eigenschaftsfelds ungültig.
Dabei funktioniert es so einwandfrei:
For i = Listbox1.ListCount - 1 To 1 Step -1
If Listbox1.List(i) = Listbox1.List(i - 1) Then
Listbox1.RemoveItem i
End If
Next i
Aber hier muss ich die Listbox vorher sortieren und der Befehl Listbox1.sorted=True (Public Property Sorted As Boolean) klappt nicht.
Übrigens arbeite ich mit excel 2010
For i = 1 To ListBox1.ListCount
For j = 2 To ListBox1.ListCount
If ListBox1.List(i) = ListBox1.List(j) Then
ListBox1.RemoveItem j
End If
Next j
Next i
Fehler: Laufzeitfehler '381': Eigenschaft List konnte nicht abgreufen werden. Index des Eigenschaftsfelds ungültig.
Dabei funktioniert es so einwandfrei:
For i = Listbox1.ListCount - 1 To 1 Step -1
If Listbox1.List(i) = Listbox1.List(i - 1) Then
Listbox1.RemoveItem i
End If
Next i
Aber hier muss ich die Listbox vorher sortieren und der Befehl Listbox1.sorted=True (Public Property Sorted As Boolean) klappt nicht.
Übrigens arbeite ich mit excel 2010
Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Curare“ ()