tekst en waarde uit cel(len) halen

[Lampie173]

hallo allemaal,

In het toegevoegde testbestand wil ik de waarde van de gekozen cel op het kruispunt in het tabel kopieren naar een anders cel elders op het het werkblad, wat nog mooier zou zijn is dat de maand en ook de header van de kolom ook elders in het werkblad als 1 zin af te lezen zijn.

Ik was ooit een beetje redelijk thuis in VBA, maar das lang geleden.

Wie wil/kan mij op weg te helpen.


Alvast bedankt voor het lezen.

Groet,

Toon

 

[SjonR]

zo?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
If Not Intersect(Target, Range("B2:H13")) Is Nothing Then
    Cells(18, 4) = Cells(Target.Row, 1)
    Cells(18, 6) = Target.Value
    Cells(18, 7) = Cells(1, Target.Column)
End If
 
End Sub

Of wil je de oude keuze verplaatsen en vervangen door nieuwe keuze?
dan zo:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
If Not Intersect(Target, Range("B2:H13")) Is Nothing Then
    Cells(17, 4) = Cells(18, 4)
    Cells(17, 6) = Cells(18, 6)
    Cells(17, 7) = Cells(18, 7)
    Cells(18, 4) = Cells(Target.Row, 1)
    Cells(18, 6) = Target.Value
    Cells(18, 7) = Cells(1, Target.Column)
End If
 
End Sub

 

[Lampie173]

Hoi SjonR,

Dank voor je (snelle) reactie!

Je eerste optie is al goed genoeg! Hier kan ik verder mee:thumb:

Groet,

Toon