Gültigkeitsregel

Habe ein Problem mit einer Gültigkeitsregel.

In der Zelle A1 werden die Leerzellen a3:a19 gezählt. in den Zellen a3:a19 steht die Gültigkeitsformel

Benutzerdefiniert =A$1>9.

Wenn die Zahl 10 in a1 steht ist kein Eintrag mehr möglich,
funktioniert auch. Aber sobald dort ein Eintrag über strg+taste durchgeführt wird,

(z.B.' Shortcut: Strg+f
'Sub dfr()
ActiveCell.FormulaR1C1 = "1"
ActiveCell.Offset(columnOffset:=2).Activate
End Sub

funktioniert die Gültigkeitsformel nicht und es können alle Zellen belegt werden.

Danke für die Hilfe Alfred