Wenn Sie in Ihren Arbeitsblättern häufig Kommentare verwenden, fragen Sie sich möglicherweise, ob es eine Möglichkeit gibt, die Kommentare zu drucken, jedoch ohne den Namen und den Doppelpunkt, die normalerweise jedem Kommentar vorangestellt sind. Leider gibt es in Excel keine integrierte Möglichkeit, dies zu erreichen. Mit einem Makro können jedoch schnell alle Kommentare aus einem Arbeitsblatt abgerufen und in ein eigenes Arbeitsblatt eingefügt werden. Dieses Arbeitsblatt könnte dann gedruckt werden, da es ein Kompendium aller Kommentare darstellen würde. Das Makro lautet wie folgt:

Sub Workbook_BeforePrint(Cancel As Boolean)

myCount = 0     For Each c In ActiveSheet.Comments         myCount = myCount + 1         myComment = ActiveSheet.Comments(myCount).Text         Sheets(2).Range("a1").Offset(myCount, 0).Value = _           Mid(myComment,InStr(myComment, Chr(10)))

Next End Sub

Dieses Makro platziert die Kommentare auf dem zweiten Arbeitsblatt in einer Arbeitsmappe. Wenn Sie sie also auf einem anderen Arbeitsblatt haben möchten (damit Sie die Informationen nicht bereits auf dem zweiten Arbeitsblatt überschreiben), müssen Sie das Objekt Sheets (2) ändern .

Beachten Sie auch, dass der Makroname Workbook_BeforePrint lautet. Dies bedeutet, dass das Makro jedes Mal ausgeführt wird, wenn Sie Ihr Arbeitsblatt drucken.

_Hinweis: _

Wenn Sie wissen möchten, wie die auf dieser Seite (oder auf einer anderen Seite der ExcelTips-Websites) beschriebenen Makros verwendet werden, habe ich eine spezielle Seite vorbereitet, die hilfreiche Informationen enthält.

Klicken Sie hier, um diese spezielle Seite in einem neuen Browser-Tab zu öffnen.

ExcelTips ist Ihre Quelle für kostengünstige Microsoft Excel-Schulungen.

Dieser Tipp (2521) gilt für Microsoft Excel 97, 2000, 2002 und 2003. Eine Version dieses Tipps für die Multifunktionsleistenschnittstelle von Excel (Excel 2007 und höher) finden Sie hier:

Anpassen von Kommentarausdrucken.