Doppelte Werte finden.........
11.07.2004 00:11:50
maine-coon
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
Set rng = Range("Orte")
If Target.Cells.count > 1 Then exit sub
If Intersect(Target, rng) Is Nothing Then exit sub
If WorksheetFunction.CountIf(rng, Target.Value) > 1 Then
Target.Interior.ColorIndex = 6
meldung = MsgBox("Der Wert ist bereits in der Liste!")
Else
Target.Interior.ColorIndex = xlColorIndexNone
End If
End Sub
Es funktioniert nur so lange wie im Blatt bleibe. Verlasse ich das Blatt, durchläuft es scheinbar als Schleife den ganzen Bereich und bleibt in der nachfolgenden Zeile stehen
If WorksheetFunction.CountIf(rng, Target.Value) > 1 Then
mit der Meldung "Typen unverträglich"
Weiß jemand warum?
Danke, Gruß Achim