Opmerking kopieren als tekst naar cel

[eduito12]

Ik zoek een mogelijkheid om een opmerking uit een cel te kopieren als gewone tekst naar een cel. Het betreft hier een grotere range aan opmerkingen. Elke opmerking uiteraard naar een aparte cel.

Alvast bedankt

 

[richard1970]

Beste eduito,

Heb je hier iets aan:
Bestand > Pagina-instelling > Tabblad Blad. Kies bij 'Opmerkingen' de optie 'Einde blad'.

Vraag dan eens een printvoorbeeld op.

Richard

 

[eduito12]

Richard,

Bedankt !

Dit is mooi ik zie het nu in het print voorbeeld, maar hoe krijg ik het nu gekopieerd naar een range cellen.

Ik gebruik overigens nog Excel 2003

 

[WHER]

De tekst van de opmerkingen uit kolom A naar kolom E.

 

[snb]

of

Private Sub CommandButton1_Click()
  For Each cl In Sheets("Sheet1").Columns(1).SpecialCells(xlCellTypeComments)
    cl.Offset(, 8) = cl.Comment.Text
  Next
End Sub

 

[eduito12]

Opgelost. :thumb::thumb::thumb:

Bedankt voor jullie hulp

 

[tdubelaar]

Dit werkt alleen als alle cellen ook daadwerkekijk voorzien zijn van een opmerking, anders loopt hij vast.
Ik heb een bestand waarin vaak een opmerking staat, maar soms ook niet

Kan iemand dit zo aanpassen met een if/als of zoiets dat als er een opmerking instaat dat hij het doet, maar dat als er geen opmerking het restultaat blanco is.

 

[huijb]

Deze topic is dusdanig gedateert dat deze met rust gelaten mag worden. Topic gaat op slot en wordt overgedragen aan de afdeling BNw(Betere Naslagwerken) Bovendien pik je iemand anders zijn vraag. Graag eigen vraag maken