Muisaanwijzer verplaatsen

[Hans Gorter]

Beste mensen,

Ik moet de hele dag het gedrag van leerlingen turven. Met onderstaande code wordt steeds de waarde van een cel met 1 verhoogd als ik dubbelklik op de cel.
Vervolgens wordt de volgende cel (=volgende leerling) geselecteerd. Wie weet hoe je ook de muisaanwijzer naar die cel verplaatst?

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'verhoog waarde cel met 1
Target.Value = Target.Value + 1

'activeer cel eronder
Cells(Target.Row + 1, Target.Column).Activate

'nu zou het mooi zijn als ook de muisaanwijzer mee verhuist naar deze cel

End Sub

Vast dank voor uw aandacht!

 

[koster1984]

De muisaanwijzer verplaatsen kan niet met een code, echter kan het scherm wel met 1 cel naar beneden worden verplaatst waardoor de muisaanwijzer in principe ook op de volgende cel komt te staan met:

ActiveWindow.SmallScroll Down:=1

 

[Hans Gorter]

Helemaal goed, hartstikke bedankt!