Not Application.Intersect

[don42]

Hoi

ik heb weer eens een vraag
met onderstaande code en weekdag selecteer ik 3 kolommen (D - K - R)
en krijg ik in cel p2 keurig de weekdag te zien
nu wil ik graag dat cel p2 leeg is als een cel in en ander kolom geselecteerd is

Dim LWeekday As Integer
Dim weekdag As Integer

If Not Application.Intersect(Range("weekdag"), Target) Is Nothing Then
If Target.Value = "" Then Range("p2").Value = ""
'hier nu nog een oplossing als een ander cel geselecteerd is buiten (if Not Application.Intersect(Range("weekdag"), Target) Is Nothing Then)
'die dit doet:  Range("p2").Value = ""
Else
LWeekday = Weekday(Target.Value, vbSunday)
Range("p2").Value = LWeekday
End If
End If

 

[emields]

Nu zou je toch al moeten weten dat een voorbeeldbestand wenselijk is.

 

[edmoor]

En de eerste controle die je doet is of de target binnen dat bereik valt.
Als dat zo is heeft het uiteraard geen enkel nut om dan binnen die If te controleren of target buiten het het opgegeven bereik valt omdat dat op dat punt simpelweg niet zo is.

Wat in de Else staat wordt gedaan als target buiten dat bereik valt.

Tip:
Tevens klopt je If Else Endif constructie niet.
Gebruik inspringpunten, dat maakt het vele malen duidelijker.

 

[don42]

Hoi Edmoor,

het is gelukt
ik zag het even niet maar maar het was dus heel simpel en dat wat ik graag wou moest na Else staan
bedankt voor je uitleg

 

[Ginger]

Don42, leer in de VBE te werken met de debugger. Met F8 loop je dan regel voor regel door een procedure. Zo kan je de waarde van variabelen controleren en zien hoe je procedure doorlopen wordt. Dit soort missertjes kan je daarmee zelf heel snel achterhalen.