Direkt zum Inhalt

Wie exportiere ich Kommentare aus Excel nach Word?

Für Excel-Benutzer ist das Einfügen von Kommentaren in die Zellen eine häufige Aufgabe. Manchmal müssen Sie diese Kommentare für einen bestimmten Zweck kopieren und in ein Word-Dokument einfügen. Natürlich können Sie den Kommentar einzeln kopieren und in das Wort einfügen, aber dies ist eine mühsame und zeitaufwändige Aufgabe. Gibt es eine Möglichkeit, alle Kommentare gleichzeitig aus Excel nach Word zu exportieren?

Exportieren Sie Kommentare aus dem aktuellen Arbeitsblatt mit VBA-Code nach Word


Pfeil blau rechte BlaseExportieren Sie Kommentare aus dem aktuellen Arbeitsblatt mit VBA-Code nach Word

Leider bietet Excel nicht die Funktion, alle Kommentare gleichzeitig in Word zu kopieren und einzufügen. Mit dem folgenden VBA-Code können Sie jedoch schnell alle Kommentare des aktiven Arbeitsblatts in das Word-Dokument exportieren.

1. Halten Sie die Taste gedrückt ALT + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen-Fenster.

2. Klicken Sie Insert > Modulund fügen Sie den folgenden Code in das Feld ein Modulfenster.

VBA-Code: Exportieren Sie Kommentare aus dem aktuellen Arbeitsblatt nach Word

Sub CopyCommentsToWord()
'Update 20140325
Dim xComment As Comment
Dim wApp As Object
On Error Resume Next
Set wApp = GetObject(, "Word.Application")
If Err.Number <> 0 Then
  Err.Clear
  Set wApp = CreateObject("Word.Application")
End If
wApp.Visible = True
wApp.Documents.Add DocumentType:=0
For Each xComment In Application.ActiveSheet.Comments
    wApp.Selection.TypeText xComment.Parent.Address & vbTab & xComment.Text
    wApp.Selection.TypeParagraph
Next
Set wApp = Nothing
End Sub

3. Dann drücken F5 Der Schlüssel zum Ausführen dieses Codes und alle Kommentare im aktiven Arbeitsblatt wurden in ein neues Word-Dokument mit seiner Zelladresse exportiert. Siehe Screenshot:

doc-export-comment1


In Verbindung stehende Artikel:

Wie füge ich schnell einen Kommentar in mehrere Zellen in Excel ein?

Wie ändere ich die Form des Kommentarfelds in Excel?

Wie ändere ich alle Kommentarformate in Zellen in Excel?

Wie ändere ich den Autorennamen aller Kommentare in Excel?

Beste Office-Produktivitätstools

🤖 Kutools KI-Assistent: Revolutionieren Sie die Datenanalyse basierend auf: Intelligente Ausführung   |  Code generieren  |  Erstellen Sie benutzerdefinierte Formeln  |  Analysieren Sie Daten und erstellen Sie Diagramme  |  Rufen Sie Kutools-Funktionen auf...
Beliebte Funktionen: Suchen, markieren oder identifizieren Sie Duplikate   |  Leere Zeilen löschen   |  Kombinieren Sie Spalten oder Zellen, ohne Daten zu verlieren   |   Runde ohne Formel ...
Super-Lookup: VLookup mit mehreren Kriterien    VLookup mit mehreren Werten  |   VLookup über mehrere Blätter hinweg   |   Unscharfe Suche ....
Erweiterte Dropdown-Liste: Erstellen Sie schnell eine Dropdown-Liste   |  Abhängige Dropdown-Liste   |  Mehrfachauswahl Dropdown-Liste ....
Spaltenmanager: Fügen Sie eine bestimmte Anzahl von Spalten hinzu  |  Spalten verschieben  |  Schalten Sie den Sichtbarkeitsstatus ausgeblendeter Spalten um  |  Vergleichen Sie Bereiche und Spalten ...
Ausgewählte Funktionen: Rasterfokus   |  Designansicht   |   Große Formelleiste    Arbeitsmappen- und Blattmanager   |  Ressourcen (Autotext)   |  Datumsauswahl   |  Arbeitsblätter kombinieren   |  Zellen verschlüsseln/entschlüsseln    Senden Sie E-Mails nach Liste   |  Superfilter   |   Spezialfilter (Filter fett/kursiv/durchgestrichen...) ...
Top 15 Toolsets12 Text Tools (Text hinzufügen, Zeichen entfernen, ...)   |   50+ Chart Typen (Gantt-Diagramm, ...)   |   40+ Praktisch Formeln (Berechnen Sie das Alter basierend auf dem Geburtstag, ...)   |   19 Einfügen Tools (QR-Code einfügen, Bild aus Pfad einfügen, ...)   |   12 Umwandlung (Conversion) Tools (Zahlen zu Wörtern, Currency Conversion, ...)   |   7 Zusammenführen & Teilen Tools (Erweiterte Zeilen kombinieren, Zellen teilen, ...)   |   ... und mehr

Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor. Kutools für Excel bietet über 300 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 ...

Beschreibung


Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich

  • Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
  • Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
  • Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!
Comments (17)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
This is excellent! however i am struggling to pin the comments to where it belong in the  worksheet. is there any way to be able to label the rows or column or cell in which the comments is extracted?
This comment was minimized by the moderator on the site
Able To Extract starts with the initial measurable data set and generates derived values ​.Users can insert and customize their numbers to professionally index business.
Philip
patchhere.com
This comment was minimized by the moderator on the site
Hey I figured out how to fix this. Line 13 needs to read "For Each xComment In Application.ActiveSheet.CommentsThreaded". (The output isn't exactly like the screenshot, you would have to add xComment.Author or perhaps some other properties in the For loop - but changing from Comments to CommentsThreaded gets this working again.)
This comment was minimized by the moderator on the site
I copied and pasted exactly but it only generated a blank word document. Any ideas?


Sub CopyCommentsToWord()
'Update 20140325
Dim xComment As Comment
Dim wApp As Object
On Error Resume Next
Set wApp = GetObject(, "Word.Application")
If Err.Number <> 0 Then
Err.Clear
Set wApp = CreateObject("Word.Application")
End If
wApp.Visible = True
wApp.Documents.Add DocumentType:=0
For Each xComment In Application.ActiveSheet.Comments
wApp.Selection.TypeText xComment.Parent.Address & vbTab & xComment.Text
wApp.Selection.TypeParagraph
Next
Set wApp = Nothing
End Sub
This comment was minimized by the moderator on the site
same issue. did you manage to solve?
This comment was minimized by the moderator on the site
Same...any thoughts?
This comment was minimized by the moderator on the site
This is super helpful! Thanks!
Is there a way to pull in the row or column header rather than the cell position (B4)?
This comment was minimized by the moderator on the site
I was able to get this result by changing the "xComment.Parent.Address" to "xComment.Parent.Value" in row 14.
This comment was minimized by the moderator on the site
omg! it was really helpful!
This comment was minimized by the moderator on the site
This is great and helps! Is there a way to get actual text within the cell to replace the cell number or to be included? I have headers and balloon instructions in the headers. I am trying to create a word procedure on filling out the rows with headers of the data (Ex.; "Name") and then the comment box tells the user the format.

Currently Shows with above macro:

A1 Username:


- Enter Name of Borrower as seen on Borrower organizational documents or other name supporting documents.


Looking for it so show the text of cell A1 which is Company Name.


Any help greatly appreciated!
This comment was minimized by the moderator on the site
Can it be done to extract from filtred rows after applying filter ? Thank you.
This comment was minimized by the moderator on the site
it really helped. tq!
This comment was minimized by the moderator on the site
does anyone know if I can do this but only copying comments from a specific row? any help will be much appreciated ive been trying to work on this for ages.
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations