Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1088to1092
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Doppelte Werte aus Spalte ignorienen

Doppelte Werte aus Spalte ignorienen
Michael
Guten Morgen aus Hamburg,
ich habe ein kleines Problem mit einer Datenreihe. Die Liste enthält doppelte Einträge und ich möchte gerne mit einer Verknüpfung jeden Wert nur einmal übernehmen. Ich kann leider keine passende Funktion finden. Kann mir bitte jemand helfen?
001-0001
001-0001
001-0002
001-0002
001-0002
001-0003
001-0003
001-0004
001-0004
001-0004
001-0004
001-0005
001-0005
DANKE

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
Ohne Duplikate
28.07.2009 10:18:11
Matthias5
Hallo Michael,
das geht über den Spezialfilter mit der Funktion "ohne Duplikate". Das lässt sich auch per Formel nachbilden. Schau doch mal hier: http://www.excelformeln.de/formeln.html?welcher=194
Gruß,
Matthias
hier mal was mit VBA...
28.07.2009 10:59:37
Tino
Hallo,
bei mir im Beispiel stehen die Daten ab der Zelle A1.
Die Neue Liste wird ab B1 erstellt.
Sub Beispiel()
Dim oDic As Object
Dim MeAr
Dim A As Long

'Bereich anpassen, hier von A1 bis zur letzten gefüllten in Spalte A 
MeAr = Range("A1", Cells(Rows.Count, 1).End(xlUp))

Set oDic = CreateObject("Scripting.Dictionary")

'Dictionary Objekt füllen ohne Duplikate 
For A = 1 To Ubound(MeAr)
 If MeAr(A, 1) <> "" Then oDic(MeAr(A, 1)) = 0
Next A

'Dictionary Objekt ab Zelle B1 eintragen 
Range("B1").Resize(oDic.Count) = Application.Transpose(oDic.keys)

Set oDic = Nothing
End Sub
Gruß Tino
Anzeige

304 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige