Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
160to164
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
160to164
160to164
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Nochmal Username im Kommentar fett

Nochmal Username im Kommentar fett
15.09.2002 23:20:18
Jens-Peter
Hallo.
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


2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Nochmal Username im Kommentar fett
16.09.2002 13:05:52
Axel
Hallo,

schau Die mal folgende Prozeduren an:

Gruß
Axel


Riesen Danke schön !!!
16.09.2002 19:24:26
Jens-Peter
Hallo Axel.
Vielen Dank für dein sehr ausführliches Makro. Ich werde es nachher gleich ausprobieren. Die Erläuterungen sind natürlich das aller Beste. Lernt man gleich wieder was dazu.

Jens-Peter

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige