Ausgewählte Kommentare auf Größe formatieren
02.11.2015 19:21:32
Norbert
ich habe mir übers Internet bisher folgendes zusammengebastelt.
Sub Mko_Optimale_Kommentargröße()
Dim cmtDieser As Comment
Application.ScreenUpdating = False
For Each cmtDieser In ActiveSheet.Comments 'alle Kommentare durchlaufen
cmtDieser.Shape.TextFrame.AutoSize = True 'Größe automatisch anpassen
Next
Application.ScreenUpdating = True
End Sub
Wie kann ich das Makro anpassen, damit ich die Kommentare nur in einem bestimmten Bereich in der Größe anpasse. Der Zellbereich ist Zeilenweise verbunden und geht von (AK169 bis AR191). Nur in diesem Bereich sollen die Größe des Kommentarfensters auf eine Höhe von 2,3 cm und eine Breite von 7 cm angepasst werden. Allerdings sind nicht in jeder Zeile Kommentare vorhanden.
Könnt ihr mir bitte beim Anpassen helfen.
Im Voraus besten Dank und einen schönen Abend
Norbert.