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?
Die besten Produktivitätstools für das Büro
Stärken Sie Ihre Excel-Fähigkeiten mit Kutools für Excel und genießen Sie Effizienz wie nie zuvor. Kutools für Excel bietet mehr als300 erweiterte Funktionen, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen...
Office Tab bringt die Tab-Oberfläche in Office und macht Ihre Arbeit wesentlich einfacher
- Aktivieren Sie die Tabulator-Bearbeitung und das Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Tabs innerhalb desselben Fensters, statt in neuen Einzelfenstern.
- Steigert Ihre Produktivität um50 % und reduziert hunderte Mausklicks täglich!
Alle Kutools-Add-Ins. Ein Installationspaket
Das Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro und ist ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- All-in-One-Paket — Add-Ins für Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Ein Installationspaket, eine Lizenz — in wenigen Minuten einsatzbereit (MSI-kompatibel)
- Besser gemeinsam — optimierte Produktivität in allen Office-Anwendungen
- 30 Tage kostenlos testen — keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis — günstiger als Einzelkauf der Add-Ins