Liste ohne Duplikate aus 10 Spalten erstellen
#1
Hallo zusammen,

ich arbeite derzeit an einem Excel-Template und habe jetzt folgendes Problem. Ich möchte aus insgesamt 10 verschiedenen Spalten (bzw. Wertebereiche) eine Liste aller Werte/Eingaben erstellen ohne Duplikate.

Im Detail geht es um folgendes:
In den Zellen
L5:L74
N5:N74
P5:P74
R5:R74
T5:T74
V5:V74
X5:X74
Z5:Z74
AB5:AB74
AD5:AD74
können frei Abteilungsbezeichungen vermerkt werden (z.B. ABT_01, ABT_15, ABT_234 usw.). Es können aber auch Zellen LEER sein.

Wie kann man nun aus diesen 10 Wertebereichen eine Liste ohne Duplikate erstellen? Bis dato habe ich nur das hier gefunden:
http://www.herber.de/excelformeln und bi...elcher=194

Das ist leider auf 2 Spalten beschränkt. Geht das auch mit 10 Spalten? Geht das auch per Formel oder muss es womöglich doch über VBA gelöst werden? 

Kann mir einer von euch Brains evtl. helfen?

Lieben Gruß Gordon
Top
#2
Hallöchen,

eventuell nimmst DU als Zwischenschritt erst mal alle Daten untereinander Smile
http://www.herber.de/excelformeln und bitte suchen .../formeln.html?welcher=282
.      \\\|///      Hoffe, geholfen zu haben.
       ( ô ô )      Grüße, André aus G in T  
  ooO-(_)-Ooo    (Excel 97-2019+365)
Top
#3
Moin

Mit PQ sollte es möglich sein.
Allerdings stellt sich auch die Frage ob der Aufbau nicht vereinfacht werden kann.
Wir sehen uns!
... Detlef

Meine Beiträge können Ironie oder Sarkasmus enthalten.

Top
#4
Hallo
du hast in der verlinkten Seite ja eine Lösungsformel für 2 Spalten gezeigt.
Das geht natürlich auch per Formel
Gruß Holger


Angehängte Dateien
.xlsx   Mappe1.xlsx (Größe: 53,01 KB / Downloads: 3)
Top
#5
Hallöchen,
Zitat:Das geht natürlich auch per Formel
so hab ich mir das gedacht Smile
.      \\\|///      Hoffe, geholfen zu haben.
       ( ô ô )      Grüße, André aus G in T  
  ooO-(_)-Ooo    (Excel 97-2019+365)
Top
#6
PHP-Code:
Sub M_snb()
  sn Range("L5:AD74")
   
  With CreateObject
("scripting.dictionary")
    For Each it In sn
      x0 
= .Item(it)
    Next
    Cells
(15).Resize(.Count) = Application.Transpose(.keys)
  End With
End Sub 
Zum übersetzen von Excel Formeln:

http://dolf.trieschnigg.nl/excel/index.p...gids=en+de
Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 2 Gast/Gäste