ich möchte an eine aktive Zelle einen Kommentar via Inputbox anhängen. Mit dem Code funktioniert das aber nur wenn noch kein Kommentar in der aktiven Zelle steht.
Sub Kommentar_hinterlegen()
Dim Kommentar As String
Kommentar = InputBox("Kommentar in der aktiven Zelle hinterlegen!", "Kommentar")
If Kommentar = "" Then Exit Sub
If Kommentar "" Then
ActiveCell.AddComment
ActiveCell.Comment.Visible = False
ActiveCell.Comment.Text Text:=Kommentar
End If
End Sub
Ich möchte das wenn ein Kommentar vorhanden ist, dieser durch den neuen Kommentar ersetzt wird.
Kann mir da bitte jemand weiterhelfen?
Danke im voraus
Uwe