automatisch cel selecteren

[bowlingman]

Hallo,
Is het mogelijk om via VBA een cel te automatisch te selecteren wanneer in een bepaalde cel gegevens zijn ingevoerd.
Bv.
In cel A1 wordt een getal ingevoerd van 3 cijfers.
Zodra het derde cijfer is ingebracht moet de cursor automatisch naar cel B1 verspringen en zo verder.
Kan iemand mij helpen.

Grtjs.
Armand

 

[Demeter]

Kom niet verder dan de onderstaande code, als je drie karakters heb ingevoerd en een ENTER geeft verspringt hij naar rechts. bij een ander getal carakter gaat de cel omlaag.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A1:F1")) Is Nothing Then
        If Len(Target.Value) = 3 Then
            Cells(1, Target.Column + 1).Select
        End If
    End If
End Sub

Maar hievoor kan je het beste Excel opties zelf aanpassen.
ipv bij een enter de cel naar beneden verplaatsen de cel naar recht te verplaatsen.

 

[bowlingman]

Hallo Demeter,

Bedankt voor je reactie, maar met "Enter" verspringt de cursor sowiso naar de volgende cel. De bedoeling is eigenlijk dat dit gebeurd nadat het derde getal is ingebracht zonder "Enter" te gebruiken.

Grtjs.
Armand

 

[Demeter]

wordt erg lastig.
Excel heeft geen funcie, bij mij weten van het bihouden van aantal karakters voordat er berekend gaat worden.

Mischien is het mogelijk met een ontime functie oid.
Een loop met een timer erbij zodat deze code iedere sec. wordt uitgevoerd
In dez code zet je dan je bereik en de uit te voeren code maar betwijfel of dit gaat werken.
Geef het morgen nog een kans heb vandaag weinig tijd.