controleren of een cel in het bereik valt.

[glda19]

Hi
Hoe kan ik zorgen dat als ik een bepaalde cel selecteert dat die binnen een bepaald bereik valt.
Ik vind enkel code die werkt als er een getal of een teken in de cel is ingegeven maar niet bij het selecteren van de cel.

Private Sub Worksheet_Change(ByVal Target As Range)

'method 1
'If Target.Address = "$A$1" Then
'
'    MsgBox Target.Value
'
'End If


'method 2
'If Not Intersect(Target, Range("A1")) Is Nothing Then
'
'    MsgBox "Hi!"
'
'End If


'example 3
If Not Intersect(Target, Range("A1:A5")) Is Nothing Then

    MsgBox "Hi!"

End If

End Sub

 

[glda19]

het gevonden
Deze code moet onder het werkladstaan
Deze geeft na het veranderen van het de cel het adres weer. Dus niet bij het veranderen van de waarde

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
MsgBox Target.Address
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

 

[edmoor]

Heb je dit wel eens gezien?



Gebruik ook eens dit:

MsgBox Target.Address(0,0)

 

[glda19]

Waarom moet er die 0,0 achter het adres staan

 

[edmoor]

Heb je al naar het verschil in resultaat gekeken?

 

[glda19]

Dat zonder (0,0) achter ad er adress we $a1$ krijgen en met (0,0) A1 krijgen.
Maar wat is het verschil?

 

[edmoor]

Soms is het handig om dat adres zonder die $ tekens terug te krijgen.