kopieren en plakken in excel 2007

[Linguala]

Dag forum,

Is het in Excel 2007 enigzins mogelijk om de inhoud van een cel te kopieren en dan automatisch te plakken door middel van een muisklik?

Bv.: Ik heb een lijst met waardes in de cellen A5 t.e.m. D10.
Na elke rij wil ik in kolom F de waarde zien verschijnen die ik klik.
(De waarde in A8 komt in F8; waarde in A5 komt in F5; C5 naar F5...)

Ik denk dan aan een veldcode in F5 aan iets als =val(onmouseclick;A5;D5)
"=val" spreekt voor zich hoop ik
"onmouseclick" zou de actie moeten zijn om de waarde te kopieren
"A5 en D5" begin en eindsectie waarin de het klikken effect heeft

Op deze manier zou dus in F6 =val(mouseclick;A6;D6) moeten komen.

Dus ja, eigenlijk iets simpel, maar net niet simpel genoeg voor een leek, denk ik.

 

[Wigi]

Dit kan idd.

Plak deze code in de VBA-code van het blad waar je het nodig hebt (druk Alt-F11, dubbel klik in de projectverkenner op het juiste blad, en plak de code):

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    
    If Not Application.Intersect(Target, Range("A5:D10")) Is Nothing Then
    
        Range("F" & Target.Row).Value = Target.Value
    
    End If
    
End Sub

Wigi

 

[Linguala]

Om dit toe te passen op meerdere selecties verspreid op een excel pagina, moet ik dan heel die code overnemen voor elke selectie of kan ik daartussen nog een aantal regels toevoegen?
Ik neem aan dat ik het "If not....End if" gedeelte herhaal voor elke selectie.

Bedankt voor de moeite Wigi. Ik hoop nog een kleine ja te horen voor het bovenstaande.

 

[Wigi]

bvb.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    
    Dim rCellen As Range
    
    Set rCellen = Application.Union(Range("A1:B2"), Range("A5:D10"))
    
    If Not Application.Intersect(Target, rCellen) Is Nothing Then
    
        Range("F" & Target.Row).Value = Target.Value
    
    End If
    
End Sub

Zet dus de rest van de bereiken in de regel van rCellen, gescheiden door komma's.

Wigi

 

[Linguala]

Bedankt wigi.