Tutorial

Excel Trick: Alle Kommentare eines Arbeitsblatts automatisch extrahieren

Melden

Hier ist ein detailliertes Tutorial im Stil von „dptutorials“, das dir zeigt, wie du alle Kommentare (und Notizen) aus einem Excel-Arbeitsblatt effizient extrahieren kannst.

In umfangreichen Excel-Tabellen verliert man schnell den Überblick über hinterlassene Kommentare und Notizen. Anstatt jede Zelle einzeln anzuklicken, zeigt dir dieses Tutorial, wie du mit einem einfachen VBA-Trick alle Kommentare blitzschnell in einer Liste zusammenfasst.

Warum Kommentare extrahieren?

  • Dokumentation: Erstelle eine Übersicht aller Korrekturwünsche.
  • Fehlerbehebung: Finde versteckte Hinweise in großen Datensätzen.
  • Export: Bereite Kommentare für Berichte oder Präsentationen vor.

Methode: Kommentare extrahieren mittels VBA (Makro)

Dies ist die schnellste und sauberste Methode, um eine Liste mit Zellbezug, Autor und dem eigentlichen Kommentar-Text zu erstellen.

Schritt 1: Den VBA-Editor öffnen

  1. Öffne deine Excel-Datei.
  2. Drücke die Tastenkombination ALT + F11, um den Visual Basic Editor zu öffnen.
  3. Klicke im Menü auf Einfügen -> Modul.

Schritt 2: Den Code kopieren

Kopiere den folgenden Code und füge ihn in das leere Modulfenster ein:

Sub KommentareExtrahieren()
    Dim ws As Worksheet
    Dim newWs As Worksheet
    Dim cmt As Comment
    Dim i As Long

    ' Das aktuelle Blatt festlegen
    Set ws = ActiveSheet

    ' Ein neues Blatt für die Kommentare erstellen
    Set newWs = Worksheets.Add
    newWs.Name = "Extrahiert_Kommentare_" & Format(Now, "hhmm")

    ' Spaltenüberschriften erstellen
    With newWs
        .Cells(1, 1).Value = "Zelle"
        .Cells(1, 2).Value = "Autor"
        .Cells(1, 3).Value = "Inhalt / Kommentar"
        .Range("A1:C1").Font.Bold = True
    End With

    i = 2
    ' Alle Kommentare im ursprünglichen Blatt durchlaufen
    For Each cmt In ws.Comments
        newWs.Cells(i, 1).Value = cmt.Parent.Address
        newWs.Cells(i, 2).Value = cmt.Author
        newWs.Cells(i, 3).Value = cmt.Text
        i = i + 1
    Next cmt

    ' Spaltenbreite automatisch anpassen
    newWs.Columns("A:C").AutoFit

    MsgBox "Erfolgreich! " & i - 2 & " Kommentare wurden extrahiert.", vbInformation
End Sub

Schritt 3: Das Makro ausführen

  1. Gehe zurück zu deinem Excel-Arbeitsblatt (oder drücke ALT + Q).
  2. Drücke ALT + F8, um das Makro-Fenster zu öffnen.
  3. Wähle KommentareExtrahieren aus und klicke auf Ausführen.

Das Ergebnis

Excel erstellt automatisch ein neues Tabellenblatt. Dort findest du eine übersichtliche Tabelle mit:

  1. Zelle: Der genaue Ort (z. B. $A$10), wo der Kommentar steht.
  2. Autor: Wer den Kommentar verfasst hat.
  3. Inhalt: Der vollständige Text des Kommentars.

Profi-Tipps (Excel Tricks)

  • Notizen vs. Kommentare: In neueren Excel-Versionen (Office 365) unterscheidet Microsoft zwischen "Kommentaren" (mit Antwortfunktion) und "Notizen" (die gelben Zettel). Der obige Code extrahiert die klassischen Notizen.
  • Datei speichern: Wenn du das Makro behalten möchtest, musst du die Datei als Excel-Arbeitsmappe mit Makros (.xlsm) speichern.
  • Schnellzugriff: Du kannst das Makro auch in deine "Persönliche Makroarbeitsmappe" speichern, um es in jeder beliebigen Excel-Datei nutzen zu können.

Hat dir dieser Excel-Trick geholfen? Abonniere für weitere Tipps und Tricks rund um das Thema Datenverarbeitung!

0