Daten--Gültigkeit sabotiert Worksheet_Change-Ereig
25.08.2008 16:08:00
Reinhard
in A1 werden Werte eingegeben, wenn es der Wert 1 oder 2 oder 3 ist so wird er zu A2 dazugezählt.
Das klappt gut mit:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address "$A$1" Then Exit Sub
Application.EnableEvents = False
If Target = 1 Or Target = 2 Or Target = 3 Then Range("A2") = Range("A2") + Target
Target.Select
Application.EnableEvents = True
End Sub
Nur, füge ich für A1 über Daten--Gültigkeit bei Zulassen ein: Dezimal, Min=1 Max=3 so wird völlig falsch hochgezählt wenn ich in A1 einen anderen Zahlenwert als 1,2,3 einfüge und die Gültigkeitsfehlermeldung kommt, ich dann den Wert auf 1 oder 2 oder 3 korrigiere.
Warum auch immer wird dann der Change-Ereignis Code mehrmals durchlaufen und A2 vielzuviel erhöht.
Wodran kann das liegen?
Danke ^ Gruß
Reinhard