Ich habe schon ein Makro gefunden welches Breite und Höhe markierter Zellen anpasst, ich muß aber die Breite unbedingt beibehalten und NUR die Höhe anpassen, hat jemand ne Idee?
hier das jetzige Makro:
Sub AutoFitCommentsSelection()
On Error Resume Next
Dim c As Range
Dim myRange As Range
Set myRange = Selection
For Each c In myRange.Cells
With c.Comment
.Shape.TextFrame.AutoSize = True
End With
Next c
myRange.Select
End Sub