Makro/Lösung gesucht für Doppelte Werte innerhalb einer Zelle löschen

[Case]

Der code läuft zwar bei mir durch aber nicht wie gewünscht. Der text verlängert sich nach fast jeder zeile.....

Hallo, :19:

das war mein Fehler bzw. ohne Beispieldatei habe ich einfach die gleichen Werte zig mal kopiert und dann getestet. Das knallt natürlich in deiner (später nachgelieferten) Datei. Da muss aber nur noch eine Codezeile rein "objDic.RemoveAll", dann brummt das: :21:

Code:

ArrayA(j, 1) = Join(objDic.Keys, " ")
objDic.RemoveAll

Bei Uwes Code müsstest du hier...

Code:

Set rg = ActiveSheet.Range("A1:A1000").Value

noch das ".Value" weglöschen.

[Kuwer]

Bei Uwes Code müsstest du hier...

Code:

Set rg = ActiveSheet.Range("A1:A1000").Value

noch das ".Value" weglöschen.

autsch.
Das sollte eigentlich so aussehen:

  Set rg = ActiveSheet.Range("A1:A1000")

  vDat = rg.Value

Danke Ralf. :100:

Gruß Uwe

[Tibor]

Danke an Ralf und Uwe, das hat gepasst! :)