0160-93 82 19 37 | Nehmen Sie 
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 Zellinhalt.
Sollte bereits ein Kommentar vorhanden sein, wird dieser nicht überschrieben! Der Kommentar wird also 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
