Cel opmerking in userform weergeven

[RoyGerritsen]

Hopelijk is er iemand die mij kan helpen met het volgende:
Ik ben bezig met een Excel bestand met een Userform.
Graag wil ik dat in 1 van de labels de celopmerking van een actieve cel wordt weergegeven.

Wat ik zelf heb gedaan is de volgende code in het Userform geplaatst:

Sub UserForm_Initialize()

Label1 = ActiveCell.Comment.Text

End Sub

Dit werkt gedeeltelijk want als de cel geen opmerking bevat dan krijg ik de volgende foutmelding: ( Userform wil niet openen )
Fout 91 tijdens uitvoering:
Ojectvariabele With is niet ingesteld

Hoe moet ik de code aanpassen zodat het userform ook opent als er geen opmerking in de actieve cel staat?


Groet, RTJ

 

[edmoor]

Zoiets:
Label1.Caption = ActiveCell.Comment.Text

 

[HSV]

Voor het geval dat.

if not activecell.comment is nothing then Label1.Caption = ActiveCell.Comment.Text

Of:

if not activecell.comment is nothing then label1.caption = activecell.notetext

Maar de gevonden cel in Vba heeft vast een verwijzing meegekregen i.p.v. ActiveCell.
bv:

if not c.comment is nothing then label1.caption = c.notetext

 

[RoyGerritsen]

Voor het geval dat.

if not activecell.comment is nothing then Label1.Caption = ActiveCell.Comment.Text

Of:

if not activecell.comment is nothing then label1.caption = activecell.notetext

Maar de gevonden cel in Vba heeft vast een verwijzing meegekregen i.p.v. ActiveCell.
bv:

if not c.comment is nothing then label1.caption = c.notetext

Bedankt voor jouw reactie
Krijg nog steeds een foutmelding wanneer een cel geen opmerking bevat.
Wat is complete code die ik moet invoeren?

 

[HSV]

Private Sub UserForm_Initialize()
if not activecell.comment is nothing then label1.caption = activecell.notetext
End Sub

 

[RoyGerritsen]

Nogmaals bedankt voor jouw reactie

Zat even niet goed op te letten daarom ging het niet goed.

Nu werkt het wel

Groet,
Roy