Yoah
Erfahrenes Mitglied
Hi @ all!
Bin hier neu und habe direkt mal eine gezielte Frage an euch!
Wie sortiere ich eine Collection?
In dieser Collection habe ich eine ganze Menge Wörter abgelegt,
nun möchte ich die Collection sortieren.
So sieht mein Code im Moment aus!
Nur gibt er mir bei der Zeile WordList.Item(i) = WordList.Item(j)
eine Fehlermeldung aus, die lautet: Run-Time-Error '424' Object required
Ich hoffe ihr könnt mir da weidter helfen!
Achja, noch was, wenn ich schon mal dabei bin:
Kann man im gleichen Zug, doppelte Einträge löschen?
ThanX!
Bin hier neu und habe direkt mal eine gezielte Frage an euch!
Wie sortiere ich eine Collection?
In dieser Collection habe ich eine ganze Menge Wörter abgelegt,
nun möchte ich die Collection sortieren.
Code:
Sub Sort()
Dim Tmp
Dim i, j
For i = 1 To WordList.count
For j = WordList.count To (i + 1) Step -1
If WordList.Item(i) > WordList.Item(j) Then
Tmp = WordList.Item(i)
WordList.Item(i) = WordList.Item(j)
WordList.Item(j) = Tmp
End If
Next j
Next i
End Sub
So sieht mein Code im Moment aus!
Nur gibt er mir bei der Zeile WordList.Item(i) = WordList.Item(j)
eine Fehlermeldung aus, die lautet: Run-Time-Error '424' Object required
Ich hoffe ihr könnt mir da weidter helfen!
Achja, noch was, wenn ich schon mal dabei bin:
Kann man im gleichen Zug, doppelte Einträge löschen?
ThanX!