mit folgendem Befehl dachte ich das Kommentar ohne Inhalt zu löschen.
With Selection
If .Areas(1).Comment.Text Like "" Then
.ClearComments
End If
If .Areas(2).Comment.Text Like "" Then
.ClearComments
End If
End With
Wenn Areas(2)durchläuft und und kein Inhalt erkannt wird, werden aber die Kommentare aller Selektierungen gelöscht. Anbei eine Beispieldatei.
https://www.herber.de/bbs/user/95790.xls
.ClearComments ist offensichtlich nicht zutreffend. Vielleicht könnte mir jemand weiterhelfen.
Gruß Karsten