29. März 2024, 13:36
VB-fun.de - Beitragsübersicht zum VB-/VBA-Forum-Archiv 0416
  VB6: Doppelte Einträge aus Listbox entfernen
 Von micro
 Am 19. Januar 2009 um 21:41:08
 Frage Hallo VB-fun Elite,

In folgener Form lade ich Daten aus einer Datei in eine ListBox:

05.01.2009 11:45;DeviceA;Status(X)
06.01.2009 11:50;DeviceA;Status(X)
08.01.2009 21:36;DeviceA;Status(X)
09.01.2009 06:21;DeviceB;Status(X)
10.01.2009 08:45;DeviceC;Status(X)
10.01.2009 14:52;DeviceC;Status(X)

Jetzt möchte ich versuchen, die Daten so zu filtern, dass jedes Device nur einmal aufgeführt wird und zwar das mit dem höchsten DateValue().
Nun habe ich selbst schon viele Varianten ausprobiert, mit For in For Schleifen etc., doch leider bisher ohne Erfolg.

Im Forum habe ich dieses Code-Beispiel gefunden, welches mir als Einstieg helfen könnte:
Private Sub DelDoubleEntries()
Dim i As Integer
Dim j As Integer
Dim data() As Variant
ReDim data(0 To List1.ListCount - 1)
For i = 0 To UBound(data)
data(i) = List1.List(i)
Next i
List1.Clear
For j = 0 To UBound(data)
If data(j) <> data(j + 1) Then
List1.AddItem data(j)
End If
Next j
End Sub
Leider habe ich noch nicht entschlüsseln können, warum der Debugger mir einen "Index außerhalb des gültigen Bereichs" Fehler ausgibt !?
Kann mir jemand sagen warum ?

MfG
micro
[ VB-/VBA-Forum | Archiv 0416 | Archiv-Übersicht ]
 Antworten
VB6: Doppelte Einträge aus Listbox entfernen - micro 19. Januar 2009 um 21:41:08
Re: Doppelte Einträge aus Listbox entfernen - micro 19. Januar 2009 um 21:48:49
Re: Doppelte Einträge aus Listbox entfernen - micro 21. Januar 2009 um 09:30:33
Re: Doppelte Einträge aus Listbox entfernen - Detlev Schubert 20. Januar 2009 um 00:35:46
Re: Doppelte Einträge aus Listbox entfernen - micro 20. Januar 2009 um 06:56:07
Re: Doppelte Einträge aus Listbox entfernen - LotharK 20. Januar 2009 um 07:24:29
Re: Doppelte Einträge aus Listbox entfernen - micro 20. Januar 2009 um 08:55:12

Zum Seitenanfang

Startseite | VB-/VBA-Tipps | Projekte | Tutorials | API-Referenz | Komponenten | Bücherecke | Gewinnspiele | VB-/VBA-Forum | DirectX | DirectX-Forum | VB.Net | VB.Net-Forum | Chat | Spielplatz | Links | Suchen | Stichwortverzeichnis | Feedback | Impressum