Office: (Office 2019) Kommentare löschen wenn Zelle leer

Guten Tag zusammen.

Ich stehe vor folgendem Problem.

Mit dem Makro:
Private Sub Worksheet_Change(ByVal Target As Range)
Target.NoteText "Am " & Format(Date, "dd.mm.yy") & " um " & Format(Now(), " hh:mm:ss") & " geändert."

füge ich in der Zelle einen Kommentar ein wann diese zuletzt geändert wurde.
Wenn die Zelle aber wieder gelöscht wird möchte ich gerne das der Kommentar auch wieder weg ist.

Hat jemand eine Lösung/Idee für mich?


Recht herzlichen Dank schonmal

Grüße

Silver

 

Hi Silver,

du könntest es so lösen:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
    ' Zelle hat keinen Kommentar dann Kommentar einfügen
    If Target.Comment Is Nothing Then
        Target.NoteText "Am " & Format(Date, "dd.mm.yy") & " um " & Format(Now(), " hh:mm:ss") & " geändert."
    ' Zelle hat bereits einen Kommentar
    Else
        ' Zellinhalt wird gelöscht dann Kommentar ebenfalls löschen
        If Target = "" Then
            Target.Comment.Delete
        ' Zellinhalt wird geändert dann geänderten Kommentar einfügen
        Else
            Target.NoteText "Am " & Format(Date, "dd.mm.yy") & " um " & Format(Now(), " hh:mm:ss") & " geändert."
        End If
    End If
End Sub

---

 

Funktioniert wunderbar.

Vielen Dank Beverly!