Es sollen alle Kommentare im aktiven Tabellenblatt entfernt werden.

 

Eine VBA-freie Lösung gibt es unter "Tipps & Tricks -> Alle Kommentare löschen."

 

Der Code für ein allgemeines Modul.

 

Public Sub Alle_Kommentare_loeschen()

'Es werden alle Kommentare im aktiven Tabellenblatt gelöscht

If ActiveSheet.Comments.Count > 0 Then

  ActiveSheet.Cells.SpecialCells(xlCellTypeComments).ClearComments

End If

MsgBox "Alle Kommentare wurden gelöscht", 64

End Sub

 

 

Es sollen alle Kommentare in allen Tabellenblätter der aktiven Datei gelöscht werden.

 

Public Sub Alle_Kommentare_loeschen2()

'Es werden alle Kommentare der aktiven Datei gelöscht

Dim wks As Worksheet

For Each wks In Worksheets

  If wks.Comments.Count > 0 Then

    wks.Cells.SpecialCells(xlCellTypeComments).ClearComments

  End If

Next

MsgBox "Alle Kommentare wurden gelöscht", 64

End Sub