ich wollte mal fragen ob Ihr mir die angehängte Datei und den VBA Code so ändern könnt dass er die KKLEINSTE Werte ohne Duplikate ins neue Tabellenblatt schreibt.
https://www.herber.de/bbs/user/106687.zip
Vielen Dank und Gruß
Nilo
Sub Listen_ohne_Duplikate()
Dim Spalte As Range
With Sheets("Tabelle1")
.Cells.Clear
Sheets("E-Kette").UsedRange.Offset(1, 0).Copy
.Cells(1, 1).PasteSpecial xlPasteValues, Transpose:=True
For Each Spalte In .UsedRange.Columns
Spalte.RemoveDuplicates 1, xlNo
Spalte.Sort key1:=Spalte, Order1:=xlAscending, Header:=xlNo
Next
Sheets("E-Kette-aufsteigend").UsedRange.Offset(1, 0).Clear
.Cells(1, 1).CurrentRegion.Copy
Sheets("E-Kette-aufsteigend").Cells(2, 1).PasteSpecial xlPasteValues, Transpose:=True
.Cells.Clear
End With
End Sub
gruß Daniel