Bij * een automatisch een 10

[Roberto83]

Beste forumleden
Ik wil graag wanneer ik een * intyp er automatisch het cijfer 10 komt.
Dus bijvoorbeeld als ik in het bereik (C5:H17;J5:L17) ergens een * intyp er cijfer 10 komt te staan
Is dit via VBA te doen?
met vriendelijke groet
Robert

 

[edmoor]

Een * vereist 2 toetsen, 10 ook, dus zie ik het voordeel niet.
En 10 is geen cijfer maar een getal.
Maar goed.

Dat kan met dit achter het werkblad:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("C5:H17", "J5:L17")) Is Nothing Then
        If Target.Value = "*" Then
            Application.EnableEvents = False
            Target.Value = 10
            Application.EnableEvents = True
        End If
    End If
End Sub

 

[Roberto83]

Beste Edmoor

Dit is voor het invullen van 10en bij een wedstrijd, er kan dan een asteriks getypt worden ipv 10.
ik ga het proberen, hartelijk dank voor je snelle reactie

 

[Roberto83]

werkt perfekt

werkt fabuleus, hartelijk dank