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
Anfrage per E-Mail
+49(0) 151 164 55 914
Anfrage per Kontaktformular
Hilfe-Forum
