Erhalten Sie eine Liste aller Kommentare in einem Arbeitsblatt in Excel

Wenn Sie mit Excel-Arbeitsblättern arbeiten, die viele Zellkommentare in einem Arbeitsblatt enthalten, kann dieses Tutorial hilfreich sein. Manchmal können Sie Zellenkommentare einfügen, um Daten hervorzuheben oder zu erläutern, oder Ihr Chef fügt möglicherweise Kommentare in Zellen ein, während er Ihre Arbeit überprüft.

Wenn Sie über einen großen Datensatz verfügen und die Kommentare über das gesamte Arbeitsblatt verstreut sind, kann es hilfreich sein, alle Kommentare an einem einzigen Ort als Liste zu haben.

Erhalten Sie eine Liste aller Kommentare in einem Arbeitsblatt

In diesem Tutorial zeige ich Ihnen, wie Sie mit einem VBA-Code eine Liste aller Kommentare in einem Arbeitsblatt in einem separaten Arbeitsblatt erhalten.

Etwas wie unten gezeigt:

Es gibt einen VBA-Code im Backend, der die folgenden Dinge tut:

• Es prüft, ob Kommentare im aktiven Arbeitsblatt vorhanden sind oder nicht. Wenn es keine Kommentare gibt, verbeugt es sich leise und tut nichts.
• Wenn das Arbeitsblatt Kommentare enthält, erstellt es ein neues Arbeitsblatt („Kommentare“) und extrahiert eine Liste aller Kommentare in der folgenden Struktur:
  • Spalte A enthält die Zellenadresse mit dem Kommentar.
  • Spalte B enthält den Kommentatornamen. Dies ist praktisch, wenn mehrere Prüfer derselben Datei vorhanden sind. Es hilft auch beim Filtern/Sortieren basierend auf dem Namen des Rezensenten.
  • Spalte C enthält den Kommentar.

Laden Sie die Beispieldatei herunter

Der VBA-Code

Hier ist der VBA-Code, der hier die ganze schwere Arbeit erledigt.

Sub ExtractComments() Dim ExComment As Comment Dim i As Integer Dim ws As Worksheet Dim CS As Worksheet Set CS = ActiveSheet If ActiveSheet.Comments.Count = 0 Then Exit Sub For Each ws In Worksheets If ws.Name = "Comments" Then i = 1 Weiter ws If i = 0 Then Set ws = Worksheets.Add(After:=ActiveSheet) ws.Name = "Comments" Sonst: Set ws = Worksheets("Comments") End If For Each ExComment In CS.Comments ws. Range("A1").Value = "Comment In" ws.Range("B1").Value = "Comment By" ws.Range("C1").Value = "Comment" With ws.Range("A1: C1") .Font.Bold = True .Interior.Color = RGB(189, 215, 238) .Columns.ColumnWidth = 20 End With If ws.Range("A2") = "" Then ws.Range("A2" ).Value = ExComment.Parent.Address ws.Range("B2").Value = Left(ExComment.Text, InStr(1, ExComment.Text, ":") - 1) ws.Range("C2"). Value = Right(ExComment.Text, Len(ExComment.Text) - InStr(1, ExComment.Text, ":")) Else ws.Range("A1").End(xlDown).Offset(1, 0) = ExComment.Parent.Address ws.Range("B1").End(xlDown).Offset(1, 0) = Left(ExComment. Text, InStr(1, ExComment.Text, ":") - 1) ws.Range("C1").End(xlDown).Offset(1, 0) = Right(ExComment.Text, Len(ExComment.Text) - InStr(1, ExComment.Text, ":")) End If Next ExComment End Sub

So verwenden Sie diesen Code

Es gibt mehrere Möglichkeiten, wie Sie diesen Code verwenden können, um eine Liste mit Kommentaren aus Ihrem Arbeitsblatt zu erhalten:

#1 Kopieren und Einfügen von Daten in die Beispieldatei

Kopieren Sie Ihre Daten (wie sie sind) in die Registerkarte Daten der Downloaddatei und führen Sie dann dieses Makro aus.

Um dies auszuführen:

• Gehen Sie zur Registerkarte Entwickler und klicken Sie auf Makros. Es öffnet das Dialogfeld Makro.
• Wählen Sie ExtractComment und klicken Sie auf Ausführen. Stellen Sie sicher, dass Sie sich in dem Blatt befinden, das die Kommentare enthält, die Sie extrahieren möchten.

#2 Kopieren Sie den Code in Ihre Arbeitsmappe ein

Kopieren Sie den Code und fügen Sie ihn in die Arbeitsmappe ein, aus der Sie die Kommentare extrahieren möchten.

Um dies zu tun:

• Aktivieren Sie die Arbeitsmappe, in der Sie arbeiten, und drücken Sie Alt + F11. Dies öffnet das VB-Editor-Fenster.
• Klicken Sie im Projekt-Explorer auf der linken Seite mit der rechten Maustaste auf eines der Objekte für diese Arbeitsmappe, gehen Sie zu Einfügen -> Modul.
• Fügen Sie den Code in das Modulcodefenster ein.
• Schließen Sie das VB-Editor-Fenster (oder drücken Sie Alt + F11, um zum Arbeitsblatt zurückzukehren).

Jetzt haben Sie das Makro in Ihrer Arbeitsmappe. Um das Makro auszuführen, gehen Sie zur Registerkarte Entwickler -> Makros. Wählen Sie im Dialogfeld Makro das Makro ExtractComment aus und klicken Sie auf Ausführen.

Hinweis: Stellen Sie sicher, dass Sie die Arbeitsmappe speichern mit .XLS- oder .XLSM-Erweiterung.

#3 Erstellen Sie ein Add-In

Wenn Sie diesen Code häufig verwenden müssen, erstellen Sie am besten ein Add-In daraus. Auf diese Weise können Sie es problemlos in jeder Arbeitsmappe verwenden (ohne den zusätzlichen Aufwand, den Code immer wieder zu kopieren und einzufügen).

So erstellen Sie ein Add-In:

• Gehen Sie zu Datei -> Speichern unter.
• Ändern Sie im Dialogfeld Speichern unter den Typ Speichern unter in .xlam.
  • Sie werden feststellen, dass sich der Pfad der Datei, in der sie gespeichert wird, automatisch ändert. Sie können es ändern, wenn Sie möchten.
• Öffnen Sie eine Excel-Arbeitsmappe und gehen Sie zu Entwickler -> Add-Ins -> Excel-Add-Ins.
• Suchen Sie im Dialogfeld Add-Ins die gespeicherte Datei, und klicken Sie auf OK.

Sobald ein Add-In aktiviert wurde, können Sie es in jeder Arbeitsmappe verwenden. Gehen Sie dazu zu Entwickler -> Makros. Wählen Sie im Dialogfeld Makro das Makro ExtractComment aus und führen Sie es aus.

Laden Sie die Beispieldatei herunter

Ich hoffe, dieser Code spart Ihnen etwas Zeit. Teilen Sie mir Ihre Meinung im Kommentarbereich mit.

Wenn Sie mit Excel arbeiten, könnte VBA ein mächtiger Verbündeter sein. Bringen Sie Ihre Excel-Kenntnisse mit dem Excel VBA-Kurs auf die nächste Stufe.