Dá se komentář, resp. poznámka k excelovské (OO-Calc) buňce převést jako textový obsah jiné buňky?

nasel jsem odkaz na makro, ktere asi dela to co potrebujes (alespon dle obrazku). Je to anglicky
http://www.openofficetips.com/blog/archives/2005/09 /listing_cell_no.html

Jr., taky díky, tohle makro chodí v OpenOffice bez jediné úpravy a já v OO dělám raději.

pro Excel pouzij nasledujici proceduru ve VBA (nutno upravit nazev listu a rozsah prohledavanych bunek), kterou v editoru VBA vloz do modulu, pro OO-Calc bude nejspis nutno upravit. Protoze neuvadis, co s komentarem (odstranit?), tak zatim neresim.

Option Explicit

Sub KomentarDoBunky()
  Dim c As Range, Blok As Range
  ' nutno upravit dle potreby:
  Set Blok = Worksheets("list2").Range("i1:i30")
  '
  For Each c In Blok.Cells
    On Error Resume Next
    c.Offset(0, 1).Value = c.Comment.Text
  Next c
End Sub

To Jr. a Navstevnik: Díky, jdu to zkoušet.

VBA samozrejme v OO vubec neni. Muselo by se to prepsat jinym jazykem

Ten Navstevnikuv tip budu zkoušet v Excelu, Tvůj v OO.

Zatím mi nechodí ani jeden, na vině je však mé lamí založení.

Mohl bys mi prosím Tě říci, co je myšleno pod:

Dim c As Range, Blok As Range
' nutno upravit dle potreby:

Jsem BFU, VBA vidím poprvé životě a nevím, jak se takový rozsah nastavuje.

Stačilo by mně, kdybys mi udělal příklad pro komentované buňky A1, A2.

Díky moc.

//EDIT: Už jsem to pochopil a makro mi chodí. Díky, máš u mě virtuálního panáka.