Re: [de-users] Werte aus Kommentarfeld auslesen

Am 23.01.2012 13:18, schrieb Andre Tann:
> Servus Stefan,
>
> Stefan Weigel, Montag, 23. Januar 2012:
>
> > http://www.openofficetips.com/2005/09/14/listing-cell-notes/
> Damit kann ich mir helfen, danke für den Hinweis!
Hallo Andre,

da war ich wohl zu langsam.
Ich hab dir gerade eine Funktion geschrieben, die du wie eine normale 
Formel in Calc verwenden kannst,
wenn du sie in das Modul Standard einfügst.

hier der Code:

function KommentarText(sName as String,sCell As String) As String
  dim oSheet As object
  dim oCell as Object
  oSheet=ThisComponent.Sheets.getByName(sName)
  oCell = oSheet.getCellRangeByName(sCell)
  If oCell.Annotation.String="" Then
    KommentarText= "#NV"
  Else
    KommentarText= oCell.Annotation.String
  End if
End function

Aufgerufen wird die funktion z.B. so:
=KOMMENTARTEXT("Tabelle1";"A1")

Gruß Frieder

--
Informationen zum Abmelden: E-Mail an users+help@de.libreoffice.org
Probleme? http://de.libreoffice.org/hilfe-kontakt/mailing-listen/abmeldung-liste/
Tipps zu Listenmails: http://wiki.documentfoundation.org/Netiquette/de
Listenarchiv: http://listarchives.libreoffice.org/de/users/
Alle E-Mails an diese Liste werden unlöschbar öffentlich archiviert