Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Doppel Einträge
Autor: Noura
Datum: 21.12.01 10:58
Hallo Leute Ich habe diesen Code vom Workschop übernomme zum vermeiden von Doppel Einträge aber ich weiß nicht wie ich das einsetzen soll .Ich drücke mit der rechten Mausetaste auf das Kombinationsfeld dann Ereignis und dann gebe ich den Code ein , aber es funktioniert nicht. Private Sub DeleteDuplicateValues(Liste As Control) Dim I As Integer Dim U As Integer With Liste I = 0 While I < .ListCount U = I + 1 Do Until U > .ListCount - 1 If .List(U) = .List(I) Then ' doppelten Eintrag gefunden! .RemoveItem U Else ' Ist die Liste sortiert, kann an dieser Stelle ' die Schleife verlassen werden, da kein weiterer ' identischer Eintrag mehr vorkommen kann... If .Sorted Then Exit Do ' ...ansonsten Zähler um 1 erhöhen U = U +1 End If Loop I = I + 1 Wend End With End Sub Danke schon mal

Doppel Einträge	39	Noura	21.12.01 10:58
Re: Doppel Einträge	191	Dieter	21.12.01 11:27
Danke schon mal	19	Noura	21.12.01 11:46
Danke	19	Noura	21.12.01 12:27

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen