VBA export Kommentar einer ActiveCell als TXT

[Tom2020]

Hallo Zusammen

kennt jemand einen VBA code, mit dem man den Kommentar einer ActiveCell als TXT Datei in C:\TEMP\ speichern könnte?

Danke für die Hilfe

[RPP63]

Moin!
An den Text kommst Du mit
ActiveCell.Comment.Text

Code:

Sub Textdatei_Kommentar()
Dim ff&
ff = FreeFile
Open "I:\Test.Txt" For Output As #ff
Print #ff, ActiveCell.Comment.Text
Close #ff
End Sub

Gruß Ralf

[Tom2020]

Besten Dank Ralf

super