Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1392to1396
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1392to1396
1392to1396
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Doppelte in einer Reihe Löschen

Doppelte in einer Reihe Löschen
24.11.2014 10:11:04
Ronald
Hallo Zusammen,
heute komme ich auch an meine Grenzen und würde mich übereine Hilfe sehr freuen.
Folgende Ausgangssituation:
In den Spalten DZ2:IZ2 stehen diverse Größen von Kleidungsstücken.
DZ2  EA2  EB2  EC2  ED2
XL    S      152   XL    XL
Wie bekomme ich es hin, dass am Ende eine bereinige Liste vorliegt?
Die wiefolgt aussehen soll:
DZ2  EA2  EB2  EC2  ED2
XL    S      152
Bis jetzt habeich zig VBA Codes gefunden, die alle nur auf das vergelichen von Spalten ausgelegt sind und nicht auf das vergelcihen von Zellen in einer Reihe.
Über eine schnelle Hilfe würde ich mich sehr freuen
Ronny

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Doppelte in einer Reihe Löschen
24.11.2014 10:36:44
Rudi
Hallo,
ist doch kein Akt. 
Sub aaa()
Dim rngC As Range, objDic As Object
Set objDic = CreateObject("Scripting.dictionary")
With Range("DZ2")
For Each rngC In .Resize(, 131)
objDic(rngC.Value) = 0
Next
.Resize(, 131).Clear
.Resize(, objDic.Count) = objDic.keys
End With
End Sub

Gruß
Rudi

AW: Doppelte in einer Reihe Löschen
24.11.2014 10:39:34
Ronald
Danke für die schnelle Antwort, genau sowas habe ich gesucht.
Funktioniert genauso wie es soll :-)
Lieben Gruß
Ronny
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige