Am 23.01.2012 15:10, schrieb Werner Tietz:
Hallo Andre
Am 23.01.2012 14:50, schrieb Andre Tann:
Servus Frieder,
Frieder, Montag, 23. Januar 2012:
Aufgerufen wird die funktion z.B. so:
=KOMMENTARTEXT("Tabelle1";"A1")
Das ist nützlich, weil es einfacher ist als der Blog-Vorschlag...
...
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.
Das lässt sich umgehen mit:
=KOMMENTARTEXT("Tabelle1";ZELLE("adresse";A1))
Gruß Werner
Hallo Andre
Genau das hätte ich auch vorgeschlagen.
es gibt aber noch weitere Möglichkeiten.
Ein ist, dass das Makro nicht auf die nahmen,
sondern auf die Indices zugreift.
hier der Code:
function KommentarText2(nTable as Integer,lColumn As Long, lRow As Long)
As String
dim oSheet As object
dim oCell as Object
oSheet=ThisComponent.Sheets.getByIndex(nTable-1)
oCell = oSheet.getCellByPosition(lColumn-1,lRow-1)
If oCell.Annotation.String="" Then
KommentarText2= "#NV"
Else
KommentarText2= oCell.Annotation.String
End if
End function
Der Aufruf könnte dann so aussehen:
=KOMMENTARTEXT2(TABELLE(A1);SPALTE(A1);ZEILE(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
