ich habe gestern von Peter (danke dir noch einmal Peter...) einen VBA Code bekommen, welcher mir in der Spalte A alle doppelten Zahlen sucht und diese mit einem "D" kennzeichnet. D.h. hinter jeweils beide Zahlen wird ein "D" geschrieben.
Nun aber die Herausforderung: Ich brauche das "D" nur an der zweiten oder ersten doppelten Zahl. Wo wäre mir egal.
Kann mir jemand dabei helfen?
Hier der Code:
============================================================================
Sub Doppeltes() Dim lZeile As Long Dim lLetzte As Long Dim Bereich As Range Dim aVar As Variant lLetzte = Range("A65536").End(xlUp).Row ' letzte belegte Zeile ermitteln Set Bereich = Range("A1:A" & lLetzte) ' abzusuchenden Bereich festlegen ReDim aVar(lLetzte) For lZeile = 1 To lLetzte If WorksheetFunction.CountIf(Bereich, Range("A" & lZeile).Value) > 1 Then aVar(lZeile) = "D" End If Next lZeile For lZeile = 1 To lLetzte If aVar(lZeile) = "D" Then ' wurde ein D eingetragen ? Range("A" & lZeile).Value = Range("A" & lZeile).Value & aVar(lZeile) End If Next lZeile End Sub
==========================================================================
Danke Euch,
Gruß Micha