Eindeutige Liste erzeugen
26.04.2018 10:37:31
Michael
ich möchte folgendes Problem mittels VBA lösen:
Ich habe in Tabellenblatt 2 in einer Spalte (ab B8) verschiedene Namen. Diese Namen haben keine bestimmte Anordnung und die gleichen Namen können auch mehrmals vorkommen. Nun will ich aus diesen Namen in Tabellenblatt 3 eine neue Liste erstellen (die auch wieder ab B8 beginnt), die nur die eindeutigen Namen beinhaltet.
Folgenden Code habe ich bereits erstellt:
Sub Liste()
Dim lRow As Long
With Sheets("Tabellenblatt2")
lRow = .Cells(.Rows.Count, 2).End(xlUp).Row
.Range("B8:B" & lRow).Copy
End With
With Sheets("Tabellenblatt3")
.Range("B8").PasteSpecial
.Range("$B$8:$B$" & lRow).RemoveDuplicates Columns:=1, Header:=xlNo
End With
End Sub
Dieser Code scheint auch soweit zu funktionieren. Das Problen ist, dass der Code beim Kopieren der Daten die Formatierung in Tabellenblatt 3 löscht.
Meine Frage ist nun, was ich verändern muss, dass die Formatierung beibehalten wird?
Ich denke die Lösung dürfte nicht allzu schwierig sein, aber da ich noch totaler VBA Anfänger bin bräuchte ich trotzdem eure Hilfe.
Vielen Dank im Voraus und viele Grüße.