ich habe in Spalte A unterschiedliche viele Werte (Berufe) stehen. Einige davon kommen nur einmal vor, andere mehrfach.
Wie kann ich per VBA alle Werte, die ein- und mehrfach vorkommen in Spalte B untereinander auflisten?
Chris
Sub Unit()
Columns("A").Copy Destination:=Columns("B")
Columns("B").RemoveDuplicates 1, xlGuess
Columns("B").Sort Cells(2, 2), xlAscending, Header:=xlGuess
End Sub