Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Bereich durchsuchen, Namen ausgeben ohne doppelte

Bereich durchsuchen, Namen ausgeben ohne doppelte
12.11.2012 13:55:35
Gegga
Hallo zusammen
In meiner Tabelle habe ich einen Bereich mit 5 Spalten und ca 500 Zeilen. (Aufgebaut wie Beispieltabelle https://www.herber.de/bbs/user/82594.xlsx)
Gibt es eine Möglichkeit hier sämtliche Namen auszulesen und im Gelb markierten Bereich, untereinander auszugeben, ohne Doppelte und Leerzeilen?
Mansche Namen kommen mehrfach vor, manche einmal, oft in verschiedenen Spalten.
Wäre klasse wenn jemand helfen könnte, weil "per Hand" alle Lieferanten rauszusuchen, wäre ne Aufgabe, mit der man ein paar Stunden und etlichen Fehlern beschäftigt wäre.
Gruss Gegga

Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bereich durchsuchen, Namen ausgeben ohne doppelte
12.11.2012 14:02:33
Rudi
Hallo,
Sub aaaa()
Dim rngC As Range, objNamen As Object
Set objNamen = CreateObject("Scripting.dictionary")
For Each rngC In Range("A1:E17")
If rngC  "" Then objNamen(rngC.Value) = 0
Next
Range("I1").Resize(objNamen.Count) = WorksheetFunction.Transpose(objNamen.keys)
End Sub

Gruß
Rudi

Anzeige
AW: Bereich durchsuchen, Namen ausgeben ohne doppelte
12.11.2012 14:53:29
Gegga
Hallo Rudi
Vielen Dank für die schnelle Hilfe.
Allerdings habe ich Depp nen kleinen Fehler gemacht und das falsche Sheet hochgeladen :((((((
Unter den Namen stehen noch Eurobeträge, und die sollte es mir ja nach Möglichkeit nicht mit ausgegeben werden.
Gibts da ne Möglichkeit? Also das nur jede 2te Zeile ausgelesen wird?
Gruss Gegga

Anzeige
AW: Bereich durchsuchen, Namen ausgeben ohne doppelte
12.11.2012 15:02:22
Rudi
Hallo,
Sub aaaa()
Dim rngC As Range, objNamen As Object
Set objNamen = CreateObject("Scripting.dictionary")
For Each rngC In Range("A1:E17")
If rngC  "" And rngC.Row Mod 2 Then objNamen(rngC.Value) = 0
Next
Range("I1").Resize(objNamen.Count) = WorksheetFunction.Transpose(objNamen.keys)
End Sub

Gruß
Rudi

Anzeige
AW: Bereich durchsuchen, Namen ausgeben ohne doppelte
12.11.2012 15:24:38
Gegga
Vielen Dank Rudi!!!!

AW: Zweite Zeile ohne doppelte
12.11.2012 15:02:53
hary
Hallo Gegga
If rngC  "" And rngC.Row Mod 2  0 Then

gruss hary

AW: Zweite Zeile ohne doppelte
12.11.2012 15:24:59
Gegga
Vielen Dank hary!!!!!
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige