Kommentar einfügen
08.11.2013 18:25:20
UweK
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
Anzeige