wie kann ich aus allen Kommentaren den Verfasser löschen, für Eure Bemühungen besten Dank.
K-H
versuchs mal mit diesem Makro:
Sub Namen_entfernen()
Dim myComment As Comment
Dim intZeichen As Integer
Dim strNeu
For Each myComment In ActiveWorkbook.ActiveSheet.Comments
intZeichen = InStr(1, myComment.Text, ":", vbTextCompare)
If intZeichen > 0 Then
strNeu=Right(myComment.Text,Len(myComment.Text)-intZeichen-1)
myComment.Parent.Select
myComment.Delete
Selection.AddComment Text:=strNeu
End If
Next myComment
End Sub
Damit werden alle Namen aus den Kommentaren des aktiven Arbeitsblattes gelöscht.
Leider scheint der Name nicht explizit bearbeitbar zu sein, deshalb sucht das Makro nach einem Doppelpunkt und löscht alles davor, den Doppelpunkt selbst und das darauffolgende Zeichen (Zeilenumbruch). Das löschen und neu erstellen des Kommentars ist nötig, da sonst der Kommentartext fettgedruckt wird.
Gruß
Stefan
Man kann den Namen mit Comment.author ansprechen (nur Lesezugriff), dann im Comment.Text bearbeiten.
Mit Comment.clear kann man den Kommentar selbst ohne den Zellinhalt der ihm zugeordneten Zelle löschen.
Zusätzlich kann man noch abfragen, ob der Verfasser im Kommentar angegeben ist, damit nicht Teile des benötigten Textes gelöscht werden.
Gruß
sicci