Private Sub Worksheet_Change2(ByVal Target As Range)
If Target.Address <> "$G$3" Then Exit Sub
If Target.Value > 32 Then
Application.EnableEvents = False
Application.Undo
Application.EnableEvents = True
Else
End If
End Sub
leider spricht es nur auf feste zahlen und nicht auf eine funktion (z.b. zählewenn)an
gibt es da abhilfe?