Doppelten Wert finden
30.08.2006 16:40:07
Hartmut_M
Ich möchte in Spalte A herausfinden, ob ein Wert doppelt ist und dann eine Nachricht ausgeben. Der Code lautet:
Sub doppelt()
Dim Zelle As Range
For Each Zelle In ActiveSheet.Range("A1:A10")
If Application.WorksheetFunction.CountIf(Zelle, Range("A1:A100")) > 1 Then MsgBox "Duplikat"
Next Zelle
End Sub
Ich erhalte immer die Meldung "Typen unverträglich" Wer kann mit weiterhelfen?
Danke für jede Hilfe.
Hartmut