Das Makro fügt innerhalb der Selektion in jede Zelle einen Kommentar ein. Inhalt des Kommentars ist das aktuelle Datum sowie der entsprechende Zellinhalt.
Sollte bereits ein Kommentar vorhanden sein, wird dieser nicht überschrieben! Der Kommentar wird dementsprechend nur in eine nicht kommentierte Zelle eingefügt.
Public Sub kommentar_aus_zelle_einfuegen() Dim kom As Comment Dim zelle As Object For Each zelle In Selection On Error Resume Next Set kom = zelle.AddComment kom.Text Date & Chr(10) & zelle.Value Next zelle End Sub
Mit dem folgenden Code werden nur Kommentare in Zellen eingefügt, die einen Eintrag enthalten. Zellen ohne Werte oder Texte werden nicht berücksichtigt, auch wenn diese markiert sind.
Public Sub kommentar_aus_zelle_einfuegen() '** Dimensionierung der Variablen Dim kom As Comment Dim zelle As Object '** Errorhandling deaktivieren On Error Resume Next '** Alle markierten Zellen durchlaufen For Each zelle In Selection If zelle.Value <> "" Then Set kom = zelle.AddComment kom.Text Date & Chr(10) & zelle.Value End If Next zelle End Sub