Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Dynamisches Array ohne Duplikate befüllen
Autor: El-torro
Datum: 01.11.17 12:12
Hallo Zusammen, ich möchte ein Dynamisches Array befüllen aber ohne Dublikate. Das befüllen des Arrays habe ich hin bekommen, aber mit Dublikaten. Ich habe eine Datenliste mit vielen Zeilen und er soll jede Zeile prüfen ob der Wert schon in dem Array vorhanden ist. Wenn ja, in die nächste Zeile springen, wenn nicht ins Array aufnehmen und dann die nächste Zeile prüfen. Ich habe das ganze als Do loop Schleife gebaut. Folgender Code klappt soweit mit Duplikate Dim Stadt() As String Dim gefunden As Integer 'Index vom Array Dim znr As Integer znr = 2 'weil Zeile 1 Überschrift ist Do Until Range("A" & znr) = "" ReDim Preserve Stadt(gefunden) Stadt(gefunden) = Range("A" & znr) gefunden = gefunden + 1 znr = znr + 1 Loop Die Prüfung hatte ich so geschrieben, welche nicht funktioniert... Do Until Range("A" & znr) = "" If Range ("A" & znr) = Stadt (gefunden) then ReDim Preserve Stadt(gefunden) Stadt(gefunden) = Range("A" & znr) gefunden = gefunden + 1 znr = znr + 1 End if Loop Kann mir da jemand weiter helfen? Vielen Dank! Beitrag wurde zuletzt am 01.11.17 um 12:23:14 editiert.

Dynamisches Array ohne Duplikate befüllen	2.024	El-torro	01.11.17 12:12
Re: Dynamisches Array ohne Duplikate befüllen	1.031	effeff	01.11.17 15:39
Re: Dynamisches Array ohne Duplikate befüllen - Lösung mit A...	1.028	effeff	01.11.17 16:55
Re: Dynamisches Array ohne Duplikate befüllen	1.968	Blackbox	01.11.17 17:16
Re: Dynamisches Array ohne Duplikate befüllen	1.169	Rippler	01.11.17 18:10
Re: Dynamisches Array ohne Duplikate befüllen	1.180	Blackbox	02.11.17 21:53

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