muss doch noch mal was fragen: der Folgende Code , (hier vom Forum) soll die Spalte B nach Doppelten Einträgen durchsuchen.
Dim Zelle As Range
For Each Zelle In Range("B10:B1000")
If Application.WorksheetFunction.CountIf(Range("B20:B150"), Zelle.Value) GRÖSSER 1 Then
MsgBox "doppelt"
End If
Next
Das funktioniert auch soweit. Wenn ein Doppelter DS gefunden wurde, kommt die MDGBOx und er sucht den nächsten. Dann muss ich immer wieder OK klicken, bis alle doppleten DS durch sind.
Wie ändere ich den Code ab, damit er kleich beim ersten Fund mit einer MSGBOX (Ja/Nein) raus geht.
Bei JA soll ein Code ausgeführt werden, bei Nein soll er ganz raus gehn.
Danke Marko