ich bin gerade drann, scheitere aber: wie teste ich denn für zelle x, ob da ein kommentar vorhanden ist oder nicht?
Vielen Dank für eure Hilfe!
Jaqueline
Sub KommentarJN()
If ActiveCell.Comment Is Nothing Then
MsgBox "Die aktive Zelle hat keinen Kommentar !"
Else
MsgBox "Die aktive Zelle hat einen Kommentar !"
End If
End Sub
Sub KommentarFestlegen()
Dim C As Range
For Each C In Selection
If Not C.Comment Is Nothing Then
C.NoteText "Hallo!"
End If
Next C
End Sub