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 [email protected]
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
