Kommentare aus Zellinhalten generieren

101076



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