Hallo,

ich habe eine große Tabelle mit vielen Kommentaren (Notizen), wo immer wieder Zeilen ein- und ausgeblendet werden. Das zerhaut durchaus häufig und lästig und mir nur halb verständlich die zu den Zellen gehörende relative Position und die Größe der Kommentare.

Meine Idee ist, die Position der Kommentare über Top/Left - Eigenschaft an den respektiven Top/Left-Werten der Zelle, an die die Kommentare geknüpft sind, zu orientieren und mit einem leichten festen Versatz nach rechts-oben per VBA zu setzen.

Mein Problem ist, ich habe bis jetzt nicht rausgefunden, wie ich die mit einem Kommentar verknüpfte Zelle, bestimmen kann.

Plan A: Ich hatte gedacht, dass es vom Kommentar-Objekt, das ich über

For Each Objekt In ActiveSheet.Comments
oder
For Each Objekt In ActiveSheet.Shapes
If Objekt.Type = msoComment Then

abklappern kann, eine direkte Verbindung zur zugehörigen Zelle gibt, sowas wie Parent oder etwas anderes. Aber ich habe da nichts gefunden :-(

Wisst ihr, ob es da eine Methode/Eigenschaft gibt?

Plan B wäre alle Zellen abzuklappern und zu testen, ob diese einen Kommentar trägt, wenn ja habe ich dann auch die Zelle. Aber das wäre ggü. Plan A bei weitem nicht so elegant und wenig performant.

Nun hoffe ich auf Euch!