Anzeigeposition von Excel-Kommentaren ändern?

Hallo!
Wir haben Excel 2000 (SP3) unter Windoof XP Prof.

Excelkommentare erstellen und ändern ist kein Problem. Dazu zählt auch die Position des Kommentars bei diesen Änderungen (nach Doppelklick verschieben).

Allerdings wüßte ich gerne, wie ich Excel dazu bringen kann, die Kommentare beim „Berühren“ mit der Maus an einer anderen Position anzuzeigen (Kommentare werden immer abgeschnitten, wenn die Tabellenüberschrift über Fenster-fixieren „festgetackert“ und die Liste gescrollt ist).

Die „Bearbeitenposition“ (s.o.) gilt nur für das Bearbeiten, nicht für die normale Anzeige…

Wer hat da einen Tip für mich?
DANKE cu kai

Allerdings wüßte ich gerne, wie ich Excel dazu bringen kann,
die Kommentare beim „Berühren“ mit der Maus an einer
anderen Position anzuzeigen
(Kommentare werden immer
abgeschnitten, wenn die Tabellenüberschrift über
Fenster-fixieren „festgetackert“ und die Liste gescrollt ist).

Hi Kai,
die gerade von der Maus „überfahrene“ Zelle zu ermitteln und daraufhin den Kommentar gezielt woanders anzuzeigen, ist zwar m.E. mittels API-Funktionenaufruf in Vba machbar, mir jetzt aber bei der Hitze viel zu aufwendig.

Erstelle dir zum Testen in F4 einen Kommentar.
Extras–Optionen–Ansicht–Komentare–keine
Alt+F11, Doppelklick auf den Blattnamen in der Liste links, Code einfügen, Editor schließen.

Wenn du nun in Zelle F4 klickst, erscheint der Kommentar dort wo es im Code festgelegt wurde, in B8.

Wenn du in Optionne festlegst daß Kommentarindikatoren angezeigt werden so mag das der Code nicht und bringt gelegentlich, je nachdem wie schnell man sich bewegt bzw. klickt eine Fehlermeldung.
Deshalp die obige Optionseinstellung benutzen.

Der Code (ist aus dem Inet, nur leicht von mir angepasst):

Private Sub Worksheet\_SelectionChange(ByVal Target As Range)
 If Target.Address "$F$4" Then
 Range("F4").Comment.Visible = False
 Exit Sub
 End If
 If Range("F4").Comment.Visible = True Then
 Range("F4").Comment.Visible = False
 Else
 Range("F4").Comment.Visible = True
 Range("F4").Comment.Shape.Select True
 Selection.ShapeRange.Top = Range("B8").Top
 Selection.ShapeRange.Left = Range("B8").Left
 Range("F4").Select
 End If
End Sub

Gruß
Reinhard