Kommentar - Autor | HERBERS Excel Forum

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit Sub test() Dim c, t For Each c In Range("A1:E10").Cells If HatKommentar(c) = True Then t = c.Comment.Text c.ClearComments c.AddComment "Reinh 1234:" & Mid(t, 3) End If Next c End Sub Function HatKommentar(Z) As Boolean Dim t HatKommentar = False On Error GoTo ende t = Z.Comment.Text HatKommentar = True ende: End Function

Option Explicit Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) If HatKommentar(Target) = True Then Application.StatusBar = "Reinh 12345" Else Application.StatusBar = False End If End Sub

Sub Versiv() Dim cT As Comment Dim tTxt As String Dim tAdr As String Dim tOldAuthor As String tOldAuthor = "Walburga die Erste" ' Hier alter Author ! For Each cT In ActiveSheet.Comments If cT.Author = tOldAuthor Then tTxt = cT.Text If Left(tTxt, Len(tOldAuthor)) = tOldAuthor Then tTxt = Application.UserName & Mid(tTxt, Len(tOldAuthor) + 1) End If tAdr = cT.Parent.Address cT.Delete ActiveSheet.Range(tAdr).AddComment (tTxt) End If Next End Sub

Sub CommentNew() Dim alterAuthor As String Dim neuerAuthor As String Dim str As String Dim myComment As Comment alterAuthor = "Micha" '< anpassen neuerAuthor = Application.UserName For Each myComment In ActiveWorkbook.ActiveSheet.Comments str = myComment.Text str = neuerAuthor & ":" & vbLf & Right(str, Len(str) - Len(alterAuthor) - 2) myComment.Delete With Range(myComment.Parent.Address).AddComment .Text str .Shape.TextFrame.Characters(0, Len(neuerAuthor)).Font.Bold = True End With Next End Sub

Hallo Walburga,
Reinhards Makro aendert den Kommentar nicht, er LOESCHT und erstellt sie NEU, mit dem Namen der im Programm festgelegt ist. Diese Unterscheidung ist wichtig fuer die Statusleiste. Wie du richtig sagst, das Makro selbst hat keine Auswikungen auf das Autoren Feld, das wichtig fuer die Statuszeile ist. Das kann nur durch den Namen in den Optionen geaendert werden, das, wie du ebenso richtig sagst, nur fuer zukuenftige Kommenare gueltig ist. Da Reinhards Makro aber NEUE Kommentare erstellt (mit dem alten Kommentartext), und nicht nur einen Bruchteil aendert, sind dies ZUKUENFTIGE Kommentare (also Kommentare die eingefuegt wurden, nachdem der Name in den Optionen geandert wurde). Damit erhaeltst Du Kommentare mit der richtigen Telefonnummer sowohl im Textfeld als auch in der Statusleiste.
Ich gehe davon aus dass ich mich in meinem ersten Posting nicht klar genug ausgedrueckt habe, dass naemlich die beiden Punkte gemeinsam durchgefuehrt werden muessen, und kein entweder oder darstellen. Deshalb entschuldige ich mich fuer dieses Missverstaendnis. Einen Mangel an Tests kann ich mir nicht vorwerfen (ich denke 2 sollten genuegen).
Schoene Gruesse
Stefan
PS: Ich lass die Frage trotzdem weiter offen... ;-)

Hallo an alle
habe jetzt etwas gefunden, dass genau passt:
Sub change_comment_user_in_statusbar()
change_user_all ("Walburga, Neuname Tel.: +49-89-999999")
End Sub


Private Sub change_user_all(Optional temp_user As String = " ")
Dim c As Comment
Dim user As String
Dim x As Range
Dim temp As String
Dim s(10) As Variant
'hiermit wird verhindert, daß der User in der
'Statuszeile genannt wird
'zwischenspeichern
user = Application.UserName
'ändern oder chr(32) einsetzen NUR KEIN NULLstring
If IsMissing(temp_user) Then temp_user = " "
Application.UserName = temp_user
For Each c In ActiveSheet.Comments
'merke dir beliebige Werte des alten Kommentars!
s(1) = c.Shape.Height
s(2) = c.Shape.Left
s(3) = c.Shape.Width
'usw usw
Set x = c.Parent
temp = c.Text
c.Delete
x.AddComment temp
'schreibe die Werte in den NEUEN Kommentar zurück
x.Comment.Shape.Height = s(1)
x.Comment.Shape.Left = s(2)
x.Comment.Shape.Width = s(3)
'usw usw
Next
'alten Usernamen zurückholen
Application.UserName = user
End Sub

Vielen Dank für Eure Bemühungen
Gruss Walburga

Beliebteste Forumthreads (12 Monate)

Kommentar - Autor

18
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Kommentar - Autor

18 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

18
Beiträge zum Forumthread

Beiträge zu diesem Forumthread