Change Ereignis bei Kommentar auslösen

[Sebbo]

Hallo zusammen,

ist es möglich bei Erstellung eines neuen oder zusätzlichen Kommentars in einer Zelle ein Change Ereignis auszulösen?
Konkret möchte ich, dass wenn ich in eine Zelle einen neuen Kommentar eingeben habe, der komplette Kommentar anschließend in eine bestimmte andere Zelle kopiert wird.

Danke und Gruß
Sebbo

[Fennek]

Hallo,

so direkt geht es nicht, aber indirekt vielleicht:

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Debug.Print Me.Comments.Count

For i = 1 To Me.Comments.Count
    Debug.Print Me.Comments.Item(i).Text
Next i
End Sub

mfg

[Sebbo]

Hallo Fennek,

danke für deine Antwort, auch wenn ich es aufgrund mangelnder Kenntnisse nicht ganz verstanden habe. 
Kannst du mir kurz erläutern, wie ich damit den Kopiervorgang hätte starten können?

Ich habe es jetzt für mich gelöst, indem ich den gewünschten Kommentar-Text direkt in die Zelle schreibe. Beim Bestätigen wird das Change Ereignis ausgelöst, der hinterlegte Text als neuer Kommentar in der Zelle abgelegt, der Kopiervorgang des Kommentars ausgelöst und zuletzt der Text in der Zelle wieder gelöscht so das nur noch der Kommentar verbleibt.

Vielleicht etwas umständlich und funktioniert nur, wenn ich den Text den ich im Kommentar haben möchte direkt in die Zelle eingebe, aber damit könnte ich leben und liefert mir das Ergebnis das ich erzielen möchte.

Danke für deine Hilfe!

Viele Grüße
Sebbo

[schauan]

Hallöchen,

der Code von Fennek gibt beim Zellwechsel Kommentare erst mal im Debug-Fenster aus (Debug.Print ...). Das müsstest Du ändern.
Der Code setzt voraus, dass Du die Zellen wechselst.

Deine Variante ist doch auch nicht schlecht, setzt allerdings voraus, dass die Zelle nicht schon einen Inhalt hat. Der wäre dann ja weg.