Optie selectionchange icm wijzigen waarde cel

[Mohammad]

Beste lezer,

In de bijlage als voorbeeld lijst wat ik gebruik. Graag zou ik de optie SelectionChange willen gebruiken om de volgende te realiseren:

Bij het selecteren van een cel in de range (b3:Y42) dan verschijnt de tekst uit twee verschillende cellen. voorbeeld: ik selecteer de cel F21, dan verschijnt een tekst in cel AC16 " Bedrijf 19- periode 5"

Alvast bedankt voor het meedenken.

 

[VenA]

Probeer het zo eens.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Not Intersect(Target, Range("B3:Y42")) Is Nothing Then [AC16] = Cells(Target.Row, 1) & " - Periode " & Cells(2, Target.Column)
End Sub

 

[Mohammad]

Beste VenA: bedankt voor snelle reactie. Dit is exact de bedoeling.