Kommentarbreite & Zeilenumbruch
04.04.2007 13:17:43
Mathias
mit folgendem Code gebe ich Kommentare in meinen Tabellen ein.
Jetzt würde ich gern die Breite des Kommentarfensters beschränken und den Text (statt in einer Zeile) mit Zeilenumbrüchen ausgeben. Hat jemand einen Tipp für mich? Vielen Dank
Viele Grüße
Mathias
Sub Kommentareingeben()
Dim sAlt As String
Dim sNeu As String
sNeu = InputBox _
("Bitte Kommentar eingeben", "Kommentar eingeben")
If sNeu = "" Then Exit Sub
With Selection
On Error Resume Next
ActiveSheet.Unprotect ""
sAlt = .Comment.Text
If sAlt = "" Then .AddComment Else sAlt = sAlt & Chr(10)
sNeu = sAlt & Chr(10) & sNeu
.Comment.Text sNeu
.Comment.Shape.TextFrame.Characters.Font.Name = "Arial"
.Comment.Shape.TextFrame.Characters.Font.Size = 10
ActiveSheet.Protect ""
End With
End Sub
Anzeige