Makro nach Eingabe über ein Dropdown ausführen

[DietmarD]

Hallo zusammen,
ich habe hier ein Makro das mir die Kommentarfelder auf eine für mich optimale Größe bringen.

Code:

Sub Comment_AutoFit()
Dim Kommentar As Range
For Each Kommentar In ActiveSheet.Cells.SpecialCells(xlCellTypeComments)
  Kommentar.Comment.Shape.TextFrame.AutoSize = True
Next
End Sub

Nun möchte ich, das dieses Makro nach dem Einfügen oder ändern eines Kommentars, ausgelöst wird.

Danke für eure Hilfe.

[{Boris}]

Hi,

das reine Hinzufügen / Ändern oder Löschen eines Kommentars löst kein Ereignis aus, auf das man reagieren könnte.
Irgendwelche Workarounds über Selection_Change etc. sind hier imho überzogen, da Du Dir doch einfach einen Button auf dem Tabellenblatt platzieren kannst, der Dein AutoSize-Makro bei Bedarf aufruft. Was spricht dagegen?

[DietmarD]

Hallo Boris,
Danke für deine schnelle Antwort, das mit dem Button wäre dann wohl die einfachste Lösung.