Duplikate Horizontal Löschen

[vauSbe]

Hallo Excel-Profi's,

ich habe eine einfache Frage:

wie kann ich Duplikate in Excel horizontal löschen? -(Einzeln in Zellen und evlt. durch Komma getrennt(quasi unmöglich))
Vertikal geht ja einfach mit der vorgegebenen Funktion, nur horizontal nicht. 

Hier ein Beispiel:

Zahlen (mehrere Zellen)
|1|2|3|36|2|12|50|51|3|50|36|2|2|1|                        Gewünschte Lösung: |1|2|3|12|36|50|51|

Und natürlich der "SPEZIAL"-Fall:

Zahlen (1 Zelle)
|1,2,3,36,2,12,50,51,3,50,36,2,2,1|                            Gewünschte Lösung: |1,2,3,12,36,50,51|

Eine Konsolidierung zu vertikal wäre etwas umständlich...bei mehr als 1000 Daten :s

Wenn jemand eine Lösung hat, wäre das echt Spitze,
bin echt schon am verzweifeln und Google gibt mir auch keine Antwort, egal wie ich es auslege. :22: 

Grüße
VauSbe

[atilla]

Hallo,

einmal hin und her Kopieren und zwischendurch Duplikate entfernen geht nicht? Warum nicht. Die Datenmenge ist doch unerheblich.

[GMG-CC]

Moin,
du kennst aber den Unterschied zwischen konsolidieren und transponieren?

[BoskoBiati]

Hallo,

1. Fall:

Arbeitsblatt mit dem Namen 'Tabelle2'
	A	B	C	D	E	F	G	H	I	J	K	L	M	N	O	P	Q	R	S	T	U	V
1	1	2	3	36	2	12	50	51	3	50	36	2	2	1		1	2	3	12	36	50	51

Zelle	Formel
P1	=MIN(A1:N1)
Q1	=WENNFEHLER(AGGREGAT(15;6;$A$1:$N$1/($A$1:$N$1>P1);1);"")

Diese Tabelle wurde mit Tab2Html (v2.4.1) erstellt. ©Gerd alias Bamberg

2. Fall:

Daten --> Text in Spalten
Formeln wie im 1. Fall
mit TEXTVERKETTEN zusammenfügen

[vauSbe]

Hey Danke BoskoBiati,

dein Beitrag hat mir echt geholfen, hatte ein wenig damit zu tüfteln, deine Formel anzupassen :D

In meinem Fall sah es nämlich so aus:

|7263,7264,7268,7270,7271,7263,7264,7268,7270,7271,7263,7264,7268,7270,7271|
 
Die längste Zeile hatte, glaube ich bis zu 15 Werte durcheinander in einer Zelle
und das bei vertikal über 3000 Zellen :19:

Habe dann erst die Formel auseinander gemacht, die Buchstaben herunter kopiert mit dem +. Und dann wieder verkettet um am Ende mit einem separaten Makro-Programm die "=" einzufügen XD

[BoskoBiati]

Hallo,

nun gut, wenn Du es so aufwändig gestaltet hast. Mit Deiner Excel-Version wäre das ohne Problem mit der zweiten Variante gegangen. Natürlich hätte man die Formel an die tatsächlichen Wertebereich anpassen müssen:

Arbeitsblatt mit dem Namen 'Tabelle1'
	B	C	D	E	F	G	H	I	J	K	L	M	N	O	P	Q	R	S	T	U	V
1	7263	7264	7268	7270	7271	7263	7264	7268	7270	7271	7263	7264	7268	7270	7271		7263	7264	7268	7270	7271

Zelle	Formel
R1	=MIN(B1:P1)
S1	=WENNFEHLER(AGGREGAT(15;6;$B$1:$P$1/($B$1:$P$1>R1);1);"")

Diese Tabelle wurde mit Tab2Html (v2.4.1) erstellt. ©Gerd alias Bamberg

Bei Daten, Text in Spalten als Trennzeichen Komma, Leerzeichen und | angeben. 

Mit

Code:

=Textverketten(", ";Wahr;R1:AF1)

oder 

Code:

="|"&Textverketten(", ";Wahr;R1:AF1)&"|"

[snb]

In VBA:

Code:

Sub M_snb()
   sn = Sheet1.Cells(1).CurrentRegion
   
   With CreateObject("scripting.dictionary")
      For j = 1 To UBound(sn)
          sp = Split(Join(Application.Index(sn, j), ","), ",")
          For jj = 0 To UBound(sp)
              x0 = .Item(sp(jj))
          Next
          sn(j, 1) = Join(.keys, "|")
          .RemoveAll
      Next
   End With

   Sheet1.Cells(1, 10).Resize(UBound(sn)) = sn
End Sub