Kommentar Formatierung
18.07.2008 09:57:00
Alex
Mit nachfolgeder Programmierung kann ich mein Kommentarfeld
automatisch anpassen, jedoch wird es nur in einer Zeile dargestellt
und geht somit in vielen Fällen über meien Monitordarstellung hinaus.
Kann man einen Zeilenumbruch programieren?
Wie geht das? Vielen Dank für Deine Hilfe
Gruß
Alex
Sub Kommentar_Kriterien()
ActiveSheet.Unprotect
Dim i&
Range(Cells(10, 7), Cells(120, 7)).ClearComments
For i = 10 To 120
With Cells(i, 7)
With .AddComment
.Visible = False
.Text Cells(i, 95).Text
End With
.Comment.Shape.TextFrame.AutoSize = False
.Comment.Shape.Fill.ForeColor.SchemeColor = 9
End With
Next i
End Sub