Ich will über ein UserForm einen Kommentar für eine Excel-Zelle erstellen/ändern.
Das ist mir soweit gelungen - jedoch beim zurückschreiben wird der Zeilenvorschub immer mit einem Quadrat dargestellt.
Frage: Wie kann ich das Quadrat im Kommentar unsichtbar machen?
Mein Code:
Option Explicit
Private Kommentar As String
Private Sub UserForm_Initialize()
'Kommentar füllen
Call KommentarFüllen
End Sub
Sub KommentarFüllen()
On Error GoTo Neu
Kommentar=ActiveCell.Comment.Text 'Privat-Variable
Me.txtKommentar.Value = ActiveCell.Comment.Text
Me.lblText.Caption = "Der Text kann jetzt geändert werden"
Exit Sub
Neu:
Me.lblText.Caption = "Es wird ein neuer Kommentar erstellt "
End Sub
'Eingabe in der TextBox ' (EnterKeyBehavior = True)
'erste Zeile
'zweite Zeile
Private Sub cmdOK_Click()
If Kommentar = "" And Me.txtKommentar.Value = "" Then
MsgBox "Es wurde kein Kommentar eingegeben!"
ElseIf Kommentar = Me.txtKommentar.Value Then
MsgBox "Kommentar wurde nicht geändert!"
ElseIf Kommentar = "" And Me.txtKommentar.Value <> "" Then
ActiveCell.AddComment
ActiveCell.Comment.Text Text:=Me.txtKommentar.Value
ActiveCell.Comment.Shape.TextFrame.AutoSize = True
MsgBox "Der Kommentar wurde angelegt!"
Else
ActiveCell.Comment.Text Text:=Me.txtKommentar.Value
MsgBox "Kommentar wurde geändert!"
End If
Unload Me
End Sub
'Ergebnis Kommentar in der Excel-Zelle
'erste Zeile (Zeilenvorschub wird mit einem Quadrat angezeigt)
'zweite Zeile
'Frage: Wie kann ich das Quadrat im Kommentar unsichtbar machen?
Danke im voraus
Raimund