waarde meer dan 9 dan geen invoer meer mogelijk in bereik b3:b36,c3:c36

[jdrmer]

Goededag dames en heren,
ik heb probleem, ik heb een stukje vba gemaakt,


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("A35").Cells > 9 Then
Range("A36").Select
'MsgBox ("meer dan 9")
End If

End Sub

dat werkt echter mag de invoer b3:b36,c3:c36 enz niet meer kunnen als het aantal groter dan 9 is in cel A35
wie kan/wil me helpen?
mvg Jan

 

[VenA]

Probeer het zo eens

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("B3:M33")) Is Nothing Or Target.Count <> 1 Then Exit Sub
With Application
    .EnableEvents = False
    If [A35] > 9 Then
        MsgBox "meer dan 9"
        .Undo
    End If
    .EnableEvents = True
End With
End Sub

 

[jdrmer]

waarde meer dan 9 dan geen invoer meer mogelijk in bereik b3:b36,c3:c36 Uw bericht

Dankjewel VenA,
dit werkt prachtig.
mvg Jan