Automatische tekst bij selectie cel

[Mohammad]

Hallo,

Ik zit met het volgende: in de bijlage heb ik een voorbeeld lijst met werkgevers in kolom A en rij 1 heb ik de maanden. Ik wil graag het volgende regelen:
als ik cel b3 selecteer dan verschijnt tekst Jan - werkgever 1 (zie voorbeeld). Deze heb ik uiteraard handmatig via Gegevensvalidatie en dan Invoerbericht.

Ik ben dus op zoek naar een code (VBA) dat voor alle cellen, in dit geval B3 t/m Q 23, een automatische tekst komt bij selectie cel een tekst met maand en werkgever.

Alvast bedankt voor het meedenken.

 

[Cobbe]

Helpt deze u vooruit?

Sub cobbe()
For Each C In Range("B3:Q23")
 C.Comment.Delete
  With C.AddComment
     .Visible = False
     .Text Cells(1, C.Column) & "-" & Cells(C.Row, 1)
  End With
Next
End Sub

 

[Cobbe]

Als je die macro daarna draait zijn ook die rode driehoekjes weg:

Sub CoverCommentIndicator()
'www.contextures.com/xlcomments03.html
Dim ws As Worksheet
Dim cmt As Comment
Dim rngCmt As Range
Dim shpCmt As Shape
Dim shpW As Double 'shape width
Dim shpH As Double 'shape height

Set ws = ActiveSheet
shpW = 6.5
shpH = 4.5

For Each cmt In ws.Comments
  Set rngCmt = cmt.Parent
  With rngCmt
    Set shpCmt = ws.Shapes.AddShape(msoShapeRightTriangle, _
      rngCmt.Offset(0, 1).Left - shpW, .Top, shpW, shpH)
  End With
  With shpCmt
    .Flip msoFlipVertical
    .Flip msoFlipHorizontal
    .Fill.ForeColor.SchemeColor = 1 'Wit
           '12=Blue, 57=Green
    .Fill.Visible = msoTrue
    .Fill.Solid
    .Line.Visible = msoFalse
  End With
Next cmt

End Sub

 

[Mohammad]

Beste Cobbe,

Bedankt voor je reactie. is het een idee om deze codes in het voorbeeld bestand toe te voegen? want bij mij doet het niet.

 

[Cobbe]

Waarom zou dat bij u niet werken?

Maar ik heb het toch in uw eigen bestand ingevoegd.

 

[Mohammad]

Beste Cobbe,

Bedankt hij doet wat hij moet doen. Ik zal deze vraag op opgelost zetten.