Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: listbox einträge , vergleichen, löschen

listbox einträge , vergleichen, löschen
15.09.2004 14:40:04
Tobias
er soll aus einer listbox werte vergleichen und wenn sie gleich sind einen von beiden löschen.
"invalid procedure or call of argument" bringt er mir als fehler, warum?
Code-Auszug:
-----------------------------------------------------------------------------
Dim filter As Boolean

begin:
filter = False
Do While Not filter
filter = True
For lauf = 0 To List_time.List(List_time.ListCount - 1)
If List_time.List(List_time.ListCount - 1) = List_time.List(lauf) Then
List_time.RemoveItem CDbl(List_time.List(lauf))
GoTo begin
End If
filter = False
Next lauf
Loop
-----------------------------------------------------------------------------
mfg
tobias
Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: listbox einträge , vergleichen, löschen
Udo
Wie wurde die Box gefüllt? Falls RowSource oder ListFillRange, gehts nicht!
Udo
AW: listbox einträge , vergleichen, löschen
15.09.2004 16:25:50
Tobias
einfach mit List_time.additem
aber box wäre auch egal wenn ich das im array vorher filtern könnte, das würde 1 Schritt sparen.
mfg
tobias
AW: listbox einträge , vergleichen, löschen
tobias
Hallo
sortiere doch zuerst und lass dann noch einmal eine schleife drüberlaufen die alle doppelten Werte rausfeuert...
mfg tobias
Anzeige
AW: listbox einträge , vergleichen, löschen
16.09.2004 10:24:59
Tobias
das problem ist ja das die listbox schon sortiert ist, aber er nicht die doppelten einträge entfernt.
wen ich das in der listbox mache mit RemoveItem dann meckert er von wegen
illegal argument use.
AW: listbox einträge , vergleichen, löschen
tobias
Hallo
List_time.RemoveItem (List_time.Listindex)
mfg tobias
AW: listbox einträge , vergleichen, löschen
16.09.2004 11:51:23
Tobias
"invalid procedure call or argument" gibt er mir zurück.
begin:
filter = False
Do While Not filter
filter = True
For lauf = 0 To List_time.List(List_time.ListCount - 1)
If List_time.List(List_time.ListCount - 1) = List_time.List(lauf) Then
List_time.RemoveItem (List_time.ListIndex)
GoTo begin
End If
filter = False
Next lauf
Loop
Anzeige
AW: listbox einträge , vergleichen, löschen
tobias
Hallo
so gehts:
With List_time
If .ListCount &gt 1 Then
lcount = .ListCount - 1
buffer = .List(0)
For lauf = 1 To lcount
If lauf &gt .ListCount - 1 Then Exit For
If .List(lauf) = buffer Then
.RemoveItem (lauf)
lauf = lauf - 1
lcount = .ListCount - 1
Else
buffer = .List(lauf)
End If
Next
End If
End With
mfg tobias
Anzeige
AW: listbox einträge , vergleichen, löschen
16.09.2004 14:40:32
Tobias
geht, krass
thx.
mfg
Tobias
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige