Ved klik tildele værdi

Ikke ved 1 klik, men med dobbelt og højreklik kan man.

Dette er kodet i arkets modul,
et eksempel på dobbeltklik.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Column = 2 Then    ' B kolonnen
        Target.Interior.ColorIndex = 6 ' farver cellen gul
        Cancel = True
    End If
    If Target.Column = 3 Then    ' C kolonnen
        Target = 10.35    ' sætter værdien ind i cellen
        Cancel = True
    End If
End Sub

Jeg mener bare at der kun skal ét klik til i flg.:
http://muemel.at/2muemel/teiler/kgv1.xls

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row = 2 Then    ' Række2
        Target.Interior.ColorIndex = 6 ' farver cellen gul
    End If
    If Target.Column = 3 Then    ' C kolonnen
        Target = 10.35    ' sætter værdien ind i cellen
    End If
End Sub


Det er den kode de bruger, den virker hvergang du lander på cellen uanset om du klikker eller bruger pilene

..og kan man så fjerne farve eller værdi ved næste klik?

Det kan man, men kun hvis man via kode aktiverer en anden celle.
Du kan se på det eksempel ark, som du linkede til at en celle ved starten af rækken, bliver aktiveret.

Her aktiverer jeg A2 og koden virker i cellerne "B2:N2"

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Not Intersect(Target, Range("B2:N2")) Is Nothing Then
        If Target.Interior.ColorIndex = 6 Then
            Target.Interior.ColorIndex = xlNone
        Else
            Target.Interior.ColorIndex = 6    ' farver cellen gul
        End If
        [A2].Activate
    End If
End Sub

SUPER!!!!!!!!
Lige det jeg søgte!
TAK for din igen hurtige og MEGET kvalificerede bud.
Et svar...

et svar ;-))