Re: [de-users] Werte aus Kommentarfeld auslesen

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 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