Servus Frieder,
Frieder, Montag, 23. Januar 2012:
> 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")
Das ist nützlich, weil es einfacher ist als der Blog-Vorschlag. Denn
dafür habe ich mir auf die Schnelle noch ein Perl-Skript gebaut, welches
die Kommentarwerte in die Datenbank gestopft hat, wohin die komplette
Liste nämlich sollte.
Den Fall werde ich jetzt aber vermutlich öfter haben, daher ist Deine
Funktion interessant. Was daran noch ungünstig ist: Die Zelle wird über
"A1" angesprochen, nicht A1. Das heißt, wenn man sie eine Spalte
hinunterkopiert, dann wird die Bezugszelle nicht verändert.
Da könnte man sich wiederum ein Makro außenrum bauen, aber das ist nicht
so recht schön.
Da ich mich mit LO-Basic nicht auskenne: kann man das dahingehend
modifizieren?
Vielen Dank fürs Schreiben der Funktion!
--
Andre Tann
--
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
