Kommentar in Zelle schreiben und formatieren
21.01.2021 15:08:46
Christian
ich habe ein kleines Problemchen mit einem VB-Code.
Ich habe eine Funktion TakeComment, die mir einen Kommentar in eine Zelle schreibt.
Public Function TakeComment(rngQuelle As Range, Optional rngZiel As Range)
If rngZiel Is Nothing Then
Set rngZiel = Application.Caller
End If
With rngZiel
If Not .Comment Is Nothing Then
.Comment.Delete
End If
.AddComment rngQuelle(1, 1).Text
.Comment.Shape.TextFrame.AutoSize = True
End With
End Function
Leider funktioniert das Autozize nicht, wenn ich den Kommentar mit AutoComment in die Zelle eintrage. Wo ist hier der Fehler?
Danke und Gruß,
Christian