Vielleicht kann mir auch der Anderas nochmal die Frage beantworten.
Über ein Schaltbutton wird ein Kommentar eingefügt. Der Username wird dann fett dargestellt. Soweit so gut.
Nun soll aber bei beliebigen Ergänzungen der jeweilige Name des Users (es sind verschiedene; Datei ist dann freigegeben) auch fett erscheinen. Zur Zeit wird nach einer Ergänzungseingabe dann der bestehende Kommentar fett sowie der neue Kommentar komplett fett dargestellt. Ich finde trotz probieren keine Lösung. Untenstehend die 2 Listings der Makro. Ich bedanke mich schon mal im Vorraus.
Sub KommentarErfassen()
Dim Kom As Comment
Dim s As String
s = InputBox("Geben Sie Ihren Kommentar ein!", _
"Kommentar erfassen")
If s <> "" And Len(ActiveCell.NoteText) = 0 Then
Set Kom = ActiveCell.AddComment
Kom.Text Application.UserName _
& " : " & Chr(10) & s & Chr(10)
With Kom.Shape.TextFrame
.Characters.Font.Name = "Arial"
.Characters.Font.Size = 8
.AutoSize = True
.Characters.Font.Bold = False
.Characters(0, Len(Application.UserName) + 2).Font.Bold = True
End With
End If
End Sub
----------------------------------------------------------------
Sub KommentarErgänzen()
Application.DisplayAlerts = False
'ActiveSheet.unprotect "Kalenderplan"
Dim sAlt As String
Dim sNeu As String
Beep
sNeu = InputBox _
("Geben Sie einen Kommentar ein", "Kommentar ergänzen")
If sNeu = "" Then Exit Sub
With Selection
On Error Resume Next
sAlt = .Comment.Text
If sAlt = "" Then .AddComment
sNeu = sAlt & Chr(10) & Application.UserName _
& " : " & Chr(10) & sNeu & Chr(10)
.Comment.Text sNeu
.Comment.Visible = True
.Comment.Shape.TextFrame.AutoSize = True
End With
Application.DisplayAlerts = True
End Sub