Zeilenumbruch im Kommentar
04.08.2008 20:17:45
Stefan
ich möchte per Userform einen Kommentar an die aktive Zelle anfügen.
Soweit funktioniert auch alles ganz gut, es bleibt nur ein kleiner Schönheitsfehler. Sobald ich im Kommentar einen Zeilenumbruch habe, dann erscheint im Kommentar der Zelle ein quadratischen Kästchen.
Unter Office2007 erscheint das Kästchen nicht!
Im Anhang findet Ihr meine Datei.
und hier der Code:
Private Sub cmdOK_Click()
txtKommentar.Text = Replace(txtKommentar.Text, Chr$(13), "")
'Sheets(aktuelles_Blatt).Cells(1, 16).Value = Replace(Text_Bemerkungen, vbCrLf, vbLf)
Selection.ClearComments
ActiveCell.AddComment
ActiveCell.Comment.Visible = False
ActiveCell.Comment.Shape.TextFrame.AutoSize = True
ActiveCell.Comment.Text Text:= _
"eingerichtet am: " & TextBox2 & Chr(10) & "" & Chr(10) & "eingerichtet von: " & _
ComboBox1 & Chr(10) & "" & Chr(10) & "Kommentar: " & Chr(10) & txtKommentar & Chr(10) & "" & Chr(10) & ""
With Selection.Interior
.ColorIndex = 4
.Pattern = xlSolid
End With
' With Sheets("Tabelle3").Range("B15")
' .Value = txtKommentar.Value
' .Replace What:=Chr$(13), Replacement:=""
'End With
Unload Me
End Sub
Anzeige