Ich bin neu hier und wollte mal fragen ob Ihr mir helfen könnt.
Ich möchte über eine Textbox einen Text in ein Kommentar einfügen. Durch drücken der Entertaste springt der Cursor in die nächste Zeile - das erzeugt jedes mal ein viereckiges Zeichen im Kommentar.
Nun meine Frage: wie bekomme ich das Zeichen weg?
Habe schon in verschiedenen Foren gelesen, dass man aus Zellen das Zeichen mit den Befehlen:
Chr(10)
Chr(13)
Chr&........
With Sheets("Tabelle1").Range("......")
.Replace What:=vbCrLf, Replacement:=Chr(10)
End With
irgendwie weg bekommt. Habe versucht es bei mir einzusetzen - hat nicht geklappt.
Hier mein Code:
Dim MyData As DataObject
Private Sub CommandButton1_Click()
TextBox1.SelStart = 0
TextBox1.SelLength = TextBox1.TextLength
TextBox1.Copy
MyData.GetFromClipboard
With Worksheets.Application.ActiveCell.AddComment
.Visible = True
.Text MyData.GetText(1)
Worksheets.Application.ActiveCell.Comment.Shape.Select True
Selection.ShapeRange.ScaleWidth 5#, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 5#, msoFalse, msoScaleFromTopLeft
End With
End Sub
Private Sub CommandButton2_Click()
Worksheets.Application.ActiveCell.Comment.Visible = False
End Sub
Private Sub TextBox1_Change()
TextBox1.EnterKeyBehavior = True
TextBox1.MultiLine = True
End Sub
Private Sub UserForm_Initialize()
Set MyData = New DataObject
End Sub
Ach ja, weiss jemand wie man den Kommentartext formatiert - möchte (Tahoma 8 Fett) haben.
Danke schonmal für Eure Hilfe.
Grüße
Bruce