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