Zellinhalte als Kommentar zur Zelle drucken

In einer frⁿheren Ausgabe haben Sie erklΣrt, wie sich Formeln als Kommentare zur Zelle drucken lassen. Ich m÷chte nun auch die Inhalte der Zellen selbst als Kommentar zur Zelle drucken. Ist das denn m÷glich?

Ja, das funktioniert auf ganz Σhnliche Weise mit einem kleinen Makro. So gehtÆs: Fⁿhren Sie den Befehl ╗Extras | Makro | Makros½ aus, legen Sie einen Namen wie zum Beispiel ╗Zellwert_ in_Kommentar½ fest und klicken Sie dann auf die SchaltflΣche ╗Erstellen½. Nun geben Sie die folgenden Anweisungen in den VBA-Editor ein: 

Sub Zellwert_in_Kommantar()
ActiveCell.Select
 
 ActiveCell.ClearComments
  ActiveCell.AddComment
  ActiveCell.Comment.Text Text:=ActiveCell.Text
End Sub


Das Makro wΣhlt die aktive Zelle aus, l÷scht eventuell vorhandene Kommentare und fⁿgt mit Hilfe der Funktion ╗ActiveCell.Text½ den Inhalt der aktiven Zelle als Kommentar hinzu.
Um die Kommentare zu drucken, fⁿhren Sie dann noch den Befehl ╗Datei | Seite einrichten½ aus, aktivieren das Register ╗Tabelle½ und wΣhlen im Kombinationsfeld ╗Kommentare½ die Einstellung ╗Am Ende des Blattes½.
www.chip.de/forum/office97