Sub Kommentar() Dim StrDatum As String Dim cmt As Comment StrDatum = Format(CDate(Date), "ddd") & " " & Date Set cmt = ActiveCell.Comment If cmt Is Nothing Then Set cmt = ActiveCell.AddComment cmt.Text Text:="Rudolf " & StrDatum & Chr(10) Else cmt.Text Text:=cmt.Text & Chr(10) _ & StrDatum & Chr(10) End If With cmt.Shape.TextFrame .Characters.Font.Bold = False End With SendKeys "+{F2}" 'Kommentar zum edieren öffnen End Sub
58.4k Fragen
249k Antworten
7k Nutzer