Opmerking

[verluc]

Heb volgende code op dit forum gevonden :
Sub Opmerking()
Dim Opmerking As String
ActiveCell.ClearComments
Opmerking = Application.InputBox("Geef opmerking", "Commentaren", , , , , , 2)
ActiveCell.AddComment.Text Opmerking
End Sub

Ik stel echter vast dat bij keuze "Annuleren" er toch een opmerking word aangemaakt(rood driehoekje)

Hoe kan dit worden voorkomen ?

 

[RvanGalenLast]

verluc,

Deze code werkt wel:

Sub Opmerking()

Dim Opmerking As String

    ActiveCell.ClearComments
    Opmerking = InputBox("Geef opmerking", "Commentaren")
    If Opmerking = "" Then
        Exit Sub
    Else: ActiveCell.AddComment.Text Opmerking
    End If

End Sub

Groet,

Ronald

 

[verluc]

Zeer bedankt
Werkt inderdaad !!!