In einem Tabellenblatt hat es zwei Buttons und in diversen Zellen Kommentare.
Button1 kopiert alle Kommentare in die zugehörige Zelle, Button2 löscht die Texte in denjenigen Zellen, deren Text genau dem Kommentar entspricht.
Lösung derzeit: Schleife über alle benutzten Zellen, um festzustellen, ob sie Kommentar enthalten oder nicht, dann gewünschte Aktion ausführen. Da die Anzahl der benutzten Zellen langsam gross ist, dauert das relativ lang.
Mit
For Each cmt In ActiveSheet.Comments
Next
kann ich alle Kommentare abklappern. Gibt es eine Möglichkeit, für den jeweiligen Kommentar die entsprechende Adresse zu erhalten?
Gruss yogi