Microsoft Excel

Herbers Excel/VBA-Archiv

Doppelte in einer Reihe Löschen

Betrifft: Doppelte in einer Reihe Löschen von: Ronald
Geschrieben am: 24.11.2014 10:11:04

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


  

Betrifft: AW: Doppelte in einer Reihe Löschen von: Rudi Maintaire
Geschrieben am: 24.11.2014 10:36:44

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


  

Betrifft: AW: Doppelte in einer Reihe Löschen von: Ronald
Geschrieben am: 24.11.2014 10:39:34

Danke für die schnelle Antwort, genau sowas habe ich gesucht.
Funktioniert genauso wie es soll :-)

Lieben Gruß
Ronny


 

Beiträge aus den Excel-Beispielen zum Thema "Doppelte in einer Reihe Löschen"