Sub Commentdelete()

Dim Notiz As Comment

Set Notiz = Tabelle4.Range("D4").Comment

Notiz.Delete

End Sub