ich habe ein Tabellenblatt mit einer Liste an Orten.
Im 2. Tabellenblatt habe ich eine Liste mit Orten die in Blatt 1 entfernt werden sollen.
Wie gehe ich da vor? Ist ähnlich dem "doppelte finden", sie sollen aber entfernt werden.
Danke,
Bernd
Sub Manipul1()
Dim C As Range
For Each C In Worksheets("Tabelle1").Range("A2:A100")
If WorksheetFunction.CountIf(Worksheets("Tabelle2").Range("A2:A5"), C) Then
C.ClearContents
End If
Next
End Sub