Private Sub TextBox3_AfterUpdate()
With TextBox3
.MultiLine = True
.WordWrap = True
End With
With ActiveCell
.AddComment Application.UserName & ":" & vbLf & TextBox3.Text
With .Comment.Shape.TextFrame
.Characters(1, Len(Application.UserName) + 1).Font.Bold = True
.AutoSize = True
End With
End With
End Sub
Hallo Leute,
bei mir hängts an der Zeile:
.AddComment Application.UserName & ":" & vbLf & TextBox3.Text
Dort taucht der Fehler 1004 auf.
Zusammenfassend: Ich hab eine Textbox. Dort trägt jemand was ein und das wird in der aktiven Zelle als Kommentar hinzugefügt. Man kann noch den Benutzernamen sehen, der den Kommentar verfasst hat. Das Kommentarfeld soll sich am Textumfang anpassen. Und wichtig das man einen Zeilenumbruch in der Textbox eingeben kann.
|