Supportnet / Forum / Tabellenkalkulation
Excel doppelte Einträge
Frage
Hallo!
Wer kann bitte helfen?
Ich habe eine Tabelle aus der ich duplikate filtern möchte.
Und zwar nach PLZ und Straße (da andere Spalten Wertunterscheidungen haben könnten). Diese doppelten Einträge sollen dann nicht sofort gelöscht werden, sondern
vielleicht in eine neue Spalte/Tabelle/Datei eingetragen werden.
Wie mache ich das?
Danke für eure Hilfe!
Antwort 1 von nighty
hi Dennis77 :)
wie gewuenscht :)
eine variante
gruss nighty
tab1/spalteA = suchspalte
tab2/spalteA = AusGabe
wie gewuenscht :)
eine variante
gruss nighty
tab1/spalteA = suchspalte
tab2/spalteA = AusGabe
Sub liste_erstellen()
With Worksheets(2)
Dim zaehler1 As Long
Dim zaehler2 As Long
Dim wert1 As Variant
.Range("A1:A65535").Clear
For zaehler1 = 1 To Sheets(1).UsedRange.SpecialCells(xlCellTypeLastCell).Row
wert1 = Cells(zaehler1, 1).Value
For zaehler2 = zaehler1 + 1 To Sheets(1).UsedRange.SpecialCells(xlCellTypeLastCell).Row + 1
If wert1 = Cells(zaehler2, 1).Value Then
Sheets(2).Cells(Sheets(2).UsedRange.SpecialCells(xlCellTypeLastCell).Row + 1, 1) = wert1
Exit For
End If
Next zaehler2
Next zaehler1
End With
End Sub
