Habe ein Tabelle mit 7 Spalten. In Spalte 7 stehen z. B. 5x der Wert 10, 3x der Wert 20...Möchte per Makro alle verschiedenen Werte erkennen und diese jeweils 1x in eine andere Spalte kopieren.
Gruß Silvio
Sub Werte_erkennen_und_kopieren()
For i = 1 To Cells(65536, 7).End(xlUp).Row
Wert = Cells(i, 7)
Set c = Columns(8).Find(What:=Wert, LookIn:=xlValues, LookAt:=xlWhole)
lz = Cells(65536, 8).End(xlUp).Row + 1
If c Is Nothing Then Cells(lz, 8) = Wert
Next i
End Sub