ich habe in der Tabelle 1 in Spalte A doppelte Namen eingetragen. Nun möchte ich die doppelte Namen automatisch in die Tabelle 3 übertragen lassen und automatisch alphabetisch sotieren lassen.Ist das mit VBA Code möglich?
Gruß
Ahmadian
'
' doppelte im angegebenen Bereich in neues Tab-Blatt schreiben
'
Sub Listdoppelte_rausschreiben()
Dim WkSh_Q As Worksheet
Dim WkSh_Z As Worksheet
Dim Zelle As Range
Dim lZeile As Integer
Set WkSh_Q = Worksheets("Tabelle1")
Set WkSh_Z = Worksheets("Tabelle3")
With WkSh_Z
For Each Zelle In WkSh_Q.Range("A:A")
If WorksheetFunction.CountIf(WkSh_Q.Range("A:A"), Zelle.Value) > 1 Then
lZeile = lZeile + 1
.Cells(lZeile, 1).Value = Zelle.Value
.Cells(lZeile, 2).Value = Zelle.Address(False, False)
End If
Next Zelle
End With
WkSh_Z.Range("A1:B" & WkSh_Z.Range("A65536").End(xlUp).Row).Sort _
Key1:=Range("A1"), Order1:=xlAscending, _
Key2:=Range("B1"), Order2:=xlAscending, _
Header:=xlNo, OrderCustom:=1, _
MatchCase:=False, Orientation:=xlTopToBottom
End Sub }