in Zellenbereich D20:E40 soll beim Eintragen der Werte die größer 1,73 sind eine 1 eingetragen werden.
Wie mache ich das per VBA?
Vielen Dank !
Gruß,
Selma
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Me.Range("D20:E40")) Is Nothing _
Or Target.Count > 1 Then Exit Sub
Application.EnableEvents = False
If Target.Value > 1.73 Then Target.Value = 1
Application.EnableEvents = True
End Sub
GreetZ Renée