der untenstehende Code sollte eigentlich dazu dienen, innerhalb einer Arbeitsmappe in der Spalte A nach doppelten Daten zu suchen und diese dann untereinander in Spalte C zu schreiben. Momentan schreibt mir der Code alle in Spalte A befindlichen Daten in Spalte C.- Was habe ich da verkehrt gemacht? - Danke schon jetzt wieder für die Rückmeldungen.
Gruß - Wolfgang
Sub VergleichA_Doppelte()
'Nur in A vorkommende Doppeleinträge werden in Spalte C gelistet
Dim ALetzte As Long, iCounter As Long, xCounter As Long
Dim xZelle As Range, wks As Worksheet
For Each wks In ActiveWorkbook.Worksheets
With wks
If Not (.Name = "Temp" Or wks.Name = "Start") Then
'vorhandene Daten in Spalte C löschen
.Columns(3).ClearContents
ALetzte = IIf(IsEmpty(.Cells(.Rows.Count, 1)), .Cells(.Rows.Count, 1).End(-4162).Row, .Rows.Count)
For iCounter = 1 To ALetzte
Set xZelle = .Columns(1).Find(what:=.Cells(iCounter, 1), Lookat:=xlWhole)
If Not xZelle Is Nothing Then
xCounter = xCounter + 1
.Cells(xCounter, 3) = .Cells(iCounter, 1)
End If
Next iCounter
End If
End With
xCounter = 0
Next wks
End Sub