Inhoud kopieren naar Opmerking

[Evelthoven]

Goedemiddag,

Bijgesloten heb ik een bestandje (vereenvoudigd deel uit een Excel bestand).
Het komt vaak voor dat ik een deel van een werkblad (altijd een gedeelte van een rij) geplaatst wil hebben in een bestaande Opmerking in een bepaalde cel.

In het voorbeeld zou ik graag de inhoud van cel A3 t/m cel F3 willen kopieren en kunnen plakken in het "Opmerkingenvak" in cel A1.

Is dit mogelijk ?

Ik ben benieuwd.

Alvast bedankt voor jullie hulp.

Groeten,
Eric

 

[Wigi]

Staat dat niet op mijn site bij Excel > VBA-code > Opmerkingencode

Ben niet zeker, maar denk het wel. Evt. slechts een klein stukje uit de codes daar.

Wigi

 

[Evelthoven]

Beste Wim,

Ondanks dat je veel code hebt geschreven mbt. opmerkingen staat er geen oplossing bij voor mijn probleem.
Zou je aub. zo vriendelijk willen zijn om te kijken of het mogelijk is mijn vraag op te lossen ? Mocht mijn vraag niet duidelijk zijn dan verneem ik het wel.

Bedankt,
Eric

 

[Wigi]

Zoiets?

Sub cellennaaropmerking()

    Dim msg As String
    Dim c As Range
    
    On Error Resume Next
    msg = Range("A1").Comment.Text
    
    For Each c In Range("A3:F3")
        msg = msg & " " & c.Text
    Next
    
    Range("A1").Comment.Delete
    On Error GoTo 0
    Range("A1").AddComment msg
    
End Sub

Niet in deze exacte vorm op mijn site te vinden, maar toch wel in heel grote gelijkenis...

Wigi

 

[Evelthoven]

Wim,

Bedankt voor je code. Werkt perfect !

Gr.
Eric