Cel vullen met muisklik

[HammerJohn]

Hallo

Ik heb de volgende vraag ik wil met een simpele muisklik een cel vullen met een waarde die in een bepaalde cel staat
dus stel C1 is een A als ik dan met de muis dubbelklik op D4 zou er een A moeten komen klik ik nu op D5 dan daar ook.
Verander ik de waarde in C1 naar een E dan zou ik ze kunnen veranderen naar een E met een dubbel klik.

Om het met de kleuren te veranderen heb ik al gedaan maar dan moet ik steeds naar een andere cel en weer terug'
en een letter is voor ons prettiger.want met de voorwaardelijke opmaak bereik ik dan het zelfde resultaat.


de volgende code gebruikte ik om te kleuren.....

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   With Target.Cells(1)
       target.ColorIndex = Switch(.ColorIndex = -4142, 10, .ColorIndex = 0, 10, .ColorIndex = 10, 46, .ColorIndex = 46, 3, .ColorIndex = 3, 0)
    End With
End Sub

 

[HSV]

Bv.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 if not target.address = "$C$1" then target = range("c1").value
 cancel = true
End Sub

 

[HammerJohn]

Prachtig alleen heb ik me nu wat op de hals gehaald klik ik namelijk 2 keer op een verkeerde cel dan kan ik met ctrl-z niet meer
terug dus ben ik gegevens kwijt
Zou het mogelijk zijn hier een range aan te geven van cellen waar dit wel mag, ik ben al super geholpen maar vraag nu weer
misschien te veel

grt John

 

[HSV]

Bv. voor range("a1:b10").

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 if not intersect(target, range("a1:b10")) is nothing then target = range("c1").value
 cancel = true
End Sub

 

[HammerJohn]

Super bedankt echt werkt perfect...