Wie zählt man die Anzahl der Zellen mit Kommentaren in Excel?

Haben Sie jemals versucht, die Anzahl der Kommentare in einem Arbeitsblatt zu zählen? In diesem Artikel stelle ich Ihnen einige schnelle Tricks vor, um zu zählen, wie viele Zellen in einem Arbeitsblatt Kommentare enthalten.

Anzahl der Zellen mit Kommentaren mit der Funktion 'Gehe zu Spezial' zählen

Anzahl der Zellen mit Kommentaren mit einer benutzerdefinierten Funktion zählen

Anzahl der Zellen mit Kommentaren mit VBA-Code zählen

Anzahl der Zellen mit Kommentaren mit der Funktion 'Gehe zu Spezial' zählen

Mit der Funktion 'Gehe zu Spezial' in Excel können Sie zunächst alle Kommentarzellen auswählen und dann die Anzahl im Statusleiste anzeigen.

1. Gehen Sie auf Start > Suchen und Auswählen > Gehe zu Spezial, siehe Screenshot:

2. Aktivieren Sie im Dialogfeld 'Gehe zu Spezial' die Option Kommentare unter dem Abschnitt Auswählen, siehe Screenshot:

3. Klicken Sie dann auf die Schaltfläche OK, um das Dialogfeld zu schließen, und alle Zellen im aktiven Arbeitsblatt, die Kommentare enthalten, werden auf einmal ausgewählt. Sie können die Anzahl der Kommentare in der Statusleiste sehen. Siehe Screenshot:

Hinweis: Wenn Sie leere Zellen mit Kommentaren haben, werden die Kommentare der leeren Zellen nicht gezählt.

Tipp: Sie können auch die Tastenkombination Strg + G verwenden, um das Dialogfeld ' Gehe zu' zu öffnen, und klicken Sie auf die Schaltfläche Spezial, um das Dialogfeld 'Gehe zu Spezial' anzuzeigen.

Anzahl der Zellen mit Kommentaren mit einer benutzerdefinierten Funktion zählen

Die obige Methode hat ihre eigenen Nachteile, daher können wir eine benutzerdefinierte Funktion erstellen, um alle Zellenkommentare, einschließlich der Kommentare in leeren Zellen, zu zählen.

1. Halten Sie die Tasten ALT + F11 gedrückt, und es öffnet sich das Fenster Microsoft Visual Basic for Applications.

2. Klicken Sie auf Einfügen > Modul, und fügen Sie den folgenden Code in das Modulfenster ein.

VBA-Code: Anzahl der Zellen mit Kommentar zählen

Function CountComments(xCell As Range)
'Update 20140924
    Application.Volatile
    CountComments = xCell.Parent.Comments.Count
End Function

3. Speichern und schließen Sie dann den Code, gehen Sie zurück zum Arbeitsblatt, und geben Sie in einer leeren Zelle bitte diese Formel ein: =countcomments(A1), (A1 ist eine Zellreferenz, Sie können sie in eine beliebige andere Zelladresse ändern), siehe Screenshot:

4. Drücken Sie dann die Eingabetaste, und Sie erhalten die Anzahl der Zellenkommentare.

Anzahl der Zellen mit Kommentaren mit VBA-Code zählen

Der folgende VBA-Code kann Ihnen ebenfalls helfen, alle Zellenkommentare, einschließlich der Kommentare in leeren Zellen, zu zählen.

1. Halten Sie die Tasten ALT + F11 gedrückt, und es öffnet sich das Fenster Microsoft Visual Basic for Applications.

2. Klicken Sie auf Einfügen > Modul, und fügen Sie den folgenden Code in das Modulfenster ein.

VBA-Code: Anzahl der Zellen mit Kommentar zählen

Sub CountComments()
'Update 20140924
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Set WorkRng = WorkRng.SpecialCells(xlCellTypeComments)
If VBA.Err > 0 Then
    MsgBox 0
Else
    MsgBox WorkRng.Count
End If
End Sub

3. Drücken Sie dann die Taste F5, um diesen Code auszuführen, und ein Hinweisfenster wird angezeigt, das Sie auffordert, einen Datenbereich auszuwählen, in dem Sie die Zellenkommentare zählen möchten. Siehe Screenshot:

4. Klicken Sie dann auf OK, und Sie erhalten die Anzahl der Zellenkommentare in der Auswahl.

Verwandte Artikel:

Wie listet man alle Kommentare in ein neues Arbeitsblatt oder eine neue Arbeitsmappe in Excel auf?

Wie findet und ersetzt man Text innerhalb von Kommentaren in Excel?

Wie fügt man schnell einen Kommentar in mehrere Zellen in Excel ein?