Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Alle Kommentare in extra Tabellenblatt ausgeben

Forumthread: Alle Kommentare in extra Tabellenblatt ausgeben

Alle Kommentare in extra Tabellenblatt ausgeben
10.07.2003 11:43:37
Oli
Hallo,
ich möchte alle Kommentare aus allen Sheets einer Arbeitsmappe zu einer "Legende" auf einem (oder mehreren) neuem Tabellenblatt ausgeben. Am besten mit dem Namen der Zelle (wie beim Ausdruck der Kommentare).
Ein Makro zum auslesen habe ich schon gefunden (s. unten), allerdings müsste die Ausgabe noch verändert werden. Kann mir da jemand helfen ?
Danke, oli
'Makro zum auslesen von Kommentaren und Ausgabe als Text in der Zelle daneben
'
Sub Kommentar_auslesen()
Dim Kom As Comment
Dim i As Integer
On Error Resume Next
For Each Kom In ActiveSheet.Comments
s = Kom.Parent.Column
z = Kom.Parent.Row
ActiveSheet.Cells(z, s + 1) = Kom.text
Next
End Sub
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Alle Kommentare in extra Tabellenblatt ausgeben
10.07.2003 12:37:24
Bernd Held
Hallo Oli,
versuchs mal hiermit:
Sub KommentareDokumentieren()
Dim Tabkom As Worksheet
Dim Blatt As Worksheet
Dim Notiz As Comment
Dim zeile As Long
 Worksheets.Add after:=Worksheets(Worksheets.Count)
 ActiveSheet.Name = "Kommentare"
 zeile = 1
 
For Each Blatt In ActiveWorkbook.Worksheets
 For Each Notiz In Blatt.Comments
   Cells(zeile, 1).Value = Blatt.Name
   Cells(zeile, 2).Value = Notiz.Parent.Address
   Cells(zeile, 3).Value = Notiz.Author
   Cells(zeile, 4).Value = Notiz.Text
   zeile = zeile + 1
 Next Notiz
Next Blatt
Columns("A:C").AutoFit
End Sub
     Code eingefügt mit Syntaxhighlighter 1.14


Viele Grüße
Bernd
MVP für Microsoft Excel
Excel-Tipps, VBA-Bücher mit Leseproben(PDF), VBA-Forum und VBA-Schulungen unter: http://held-office.de


Anzeige
Funktioniert FAST super
10.07.2003 13:43:35
Bernd
Hallo Bernd,
erst mal ein großes Dankeschön. Im Prinzip klappt das schon super (musste allerdings nochmal alles abschreiben, da er das kopierte nicht richtig übernommen hat !? What ever!).
Allerdings klappt der Value notiz.Parent.Adress nicht, da bekomme ich immer ein Fehlermeldung:

">Userbild

Excel möchte wohl ein neues Arbeitsblatt erstellen, eigentlich sollte dort doch der Zellname rein oder liege ich da falsch? Unterstützt das meine Excel-Version nicht(v.9)?
Schalte ich diesen Teil aus, erstellt er alles. Ich hatte nur noch ein Problem, weil ein Kommentar ein "=" am Anfang hatte, ist aber behoben.
Grüße
oli

Anzeige
AW: Funktioniert FAST super
11.07.2003 09:22:28
RAnton
Hallo Olli, hallo Bernd,
großes Lob, super gelöst.
Der Fehler entsteht wahrscheinlich dadurch, daß das Blatt Kommentare immer wieder neu angelegt wird, wenn die Funktion aufgerufen wird.
Lösung:
Entweder das Blatt von Hand vorher löschen, oder es in der Funktion löschen.
Gruß
RAnton

Anzeige
AW: Alle Kommentare in extra Tabellenblatt ausgeben
10.07.2003 12:07:16
RAnton
Hallo Oli
das müsste verändert werden
so etwa

Sub Kommentar_auslesen()
Dim Kom As Comment
Dim s, z As Integer
On Error Resume Next
z = 1
s = 1
For Each Kom In ActiveSheet.Comments
Sheets("NeuesBlatt").Cells(z, s + 1) = Kom.Parent.Address
Sheets("NeuesBlatt").Cells(z, s + 2) = Kom.Text
z = z + 1
s = s + 1
Next
End Sub

Gruß
RAnton

Anzeige
nix passiert
10.07.2003 12:17:12
Oli
Hallo RAnton,
vielen Dank nur:
Vielleicht stell ich mich nur blöd an aber leider passiert garnix, wenn ich Dein Makro starte. Er läuft beim Einzelschritt zwar schön durch und wiederholt sich auch, in der Excel-Mappe ist aber nix zu sehen.
Falls es so nicht klappt, vielleicht so? (nur ein Vorschlag)
Ich habe gerade bei c't (ftp://ftp.heise.de/pub/ct/listings/0306-246.zip) ein AddIn heruntergeladen, dass es mir ermöglicht per Tabellenfunktion Kommentar() den Kommentar der jeweiligen Zelle auszulesen.
Wenn ich es jetzt noch schaffen könnte, dass Kommentare automatisch auf ein neues Blatt kommen, hätte ich schon gewonnen.
Hilft das weiter ?

Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Infobox / Tutorial

Alle Kommentare in ein extra Tabellenblatt ausgeben


Schritt-für-Schritt-Anleitung

Um alle Kommentare anzuzeigen und in ein neues Tabellenblatt zu exportieren, kannst Du das folgende VBA-Makro verwenden:

  1. Öffne das Excel-Dokument, in dem Du die Kommentare auslesen möchtest.

  2. Drücke ALT + F11, um den VBA-Editor zu öffnen.

  3. Klicke auf Einfügen > Modul, um ein neues Modul zu erstellen.

  4. Füge den folgenden Code ein:

    Sub KommentareDokumentieren()
       Dim Tabkom As Worksheet
       Dim Blatt As Worksheet
       Dim Notiz As Comment
       Dim zeile As Long
    
       Worksheets.Add after:=Worksheets(Worksheets.Count)
       ActiveSheet.Name = "Kommentare"
       zeile = 1
    
       For Each Blatt In ActiveWorkbook.Worksheets
           For Each Notiz In Blatt.Comments
               Cells(zeile, 1).Value = Blatt.Name
               Cells(zeile, 2).Value = Notiz.Parent.Address
               Cells(zeile, 3).Value = Notiz.Author
               Cells(zeile, 4).Value = Notiz.Text
               zeile = zeile + 1
           Next Notiz
       Next Blatt
       Columns("A:D").AutoFit
    End Sub
  5. Schließe den VBA-Editor und gehe zurück zu Excel.

  6. Drücke ALT + F8, wähle KommentareDokumentieren aus und klicke auf Ausführen.

Damit werden alle Kommentare in ein neues Tabellenblatt ausgegeben, inklusive dem Namen des Blattes und der Zelle, auf die sich der Kommentar bezieht.


Häufige Fehler und Lösungen

  • Problem: Das neue Tabellenblatt wird nicht erstellt.

    • Lösung: Stelle sicher, dass Du nicht bereits ein Blatt mit dem Namen "Kommentare" hast. Ändere den Namen im Code oder lösche das existierende Blatt.
  • Problem: Kommentare werden nicht korrekt angezeigt.

    • Lösung: Überprüfe, ob Kommentare tatsächlich in den Zellen vorhanden sind. Du kannst auch die Funktion excel alle kommentare anzeigen nutzen, um sicherzustellen, dass alle Kommentare sichtbar sind.

Alternative Methoden

Falls Du keine VBA-Makros nutzen möchtest, gibt es auch die Möglichkeit, Kommentare manuell zu exportieren:

  1. Wähle die Zelle mit dem Kommentar aus.
  2. Klicke mit der rechten Maustaste und wähle Kommentar anzeigen.
  3. Kopiere den Kommentar und füge ihn manuell in ein neues Blatt ein.

Zusätzlich kannst Du die Funktion Kommentar() verwenden, um den Kommentar der jeweiligen Zelle auszulesen.


Praktische Beispiele

Hier sind einige Beispiele, wie Du die Kommentare weiter verarbeiten kannst:

  • Kommentare in Notizen umwandeln: Du kannst die Kommentare auch in Notizen umwandeln, indem Du die Funktion excel kommentare in notizen umwandeln nutzt.
  • Kommentare durchsuchen: Verwende die Funktion excel kommentare durchsuchen, um gezielt nach bestimmten Kommentaren zu suchen.

Tipps für Profis

  • Automatisierung: Du kannst das Makro so anpassen, dass es bei jeder Änderung in der Arbeitsmappe automatisch ausgeführt wird.
  • Fehlerbehandlung: Implementiere eine Fehlerbehandlung im VBA-Code, um sicherzustellen, dass das Makro auch bei unerwarteten Fehlern stabil bleibt.
  • Exportieren: Wenn Du die Kommentare in ein externes Format wie CSV exportieren möchtest, kannst Du den Export-Befehl im VBA-Code entsprechend anpassen.

FAQ: Häufige Fragen

1. Wie kann ich alle Notizen löschen?
Um alle Notizen zu löschen, kannst Du das Makro alle notizen löschen excel verwenden, das dafür sorgt, dass alle Notizen in der Arbeitsmappe entfernt werden.

2. Kann ich die Kommentare auch in Zellen übertragen?
Ja, du kannst die Funktion excel kommentar in zelle ausgeben nutzen, um den Kommentar in eine bestimmte Zelle zu übertragen, indem Du die Zelle mit dem Kommentar auswählst und die entsprechende Formel anwendest.

3. Warum wird der Zellname nicht angezeigt?
Wenn der Zellname nicht angezeigt wird, könnte es daran liegen, dass der Kommentar nicht korrekt zugeordnet ist. Achte darauf, dass die Kommentare tatsächlich existieren und überprüfe den Code auf mögliche Fehler.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige