Willkommen

Pivottabelle

Spezialfilter

Formeln

Zellformate

Bedingte Formate

Gültigkeit

Programmierung

UDF - Funktionen

Tipps & Tricks

Webabfrage

Fehlersuche

Farbindex

Shortcuts

Limitationen

Downloads

Links

Kontakt

Disclaimer

Impressum

Alle Kommentare entfernen
 
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