Archiv des LibreOffice- und OpenOffice.org-Wiki

[ÜberSicht] [TitelIndex] [WortIndex] [SeiteFinden

(./) OOo1.1 OOo2

1. Benutzerdaten in Calc-Formeln zugänglich machen

Es existiert leider keine eingebaute Tabellenfunktion, mit welcher sich die BenutzerDaten (Extras → Optionen → Benutzerdaten) in Calc-Zellen verwenden ließen. Folgende benutzerdefinierte Funktion löst dieses Problem:

' Copyright © 2007 Joerg Schmidt <joesch@openoffice.org>
' Die Funktion "Beda" ist unter den Bedingungen der LGPL frei verwendbar.
'
Function BEDA (wert as String)
Dim nutzer as Object
Dim reg_daten as Object
Dim profil(0) as new com.sun.star.beans.PropertyValue
nutzer = createUnoService("com.sun.star.configuration.ConfigurationProvider")
profil(0).Name = "nodepath"
profil(0).Value = "org.openoffice.UserProfile/Data"
reg_daten = nutzer.createInstanceWithArguments("com.sun.star.configuration.ConfigurationAccess", profil())
Select Case wert
   Case "Firma"
      BEDA = reg_daten.o
   Case "Vorname"
      BEDA = reg_daten.givenname
   Case "Nachname"
      BEDA = reg_daten.sn
   Case "Kürzel"
      BEDA = reg_daten.initials
   Case "Titel"
      BEDA = reg_daten.title
   Case "Position"
      BEDA = reg_daten.position
   Case "Telefon-geschäftlich"
      BEDA = reg_daten.telephonenumber
   Case "Fax"
      BEDA = reg_daten.facsimiletelephonenumber
   Case "Telefon-privat"
      BEDA = reg_daten.homephone
   Case "Email"
      BEDA = reg_daten.mail
   Case "Strasse"
      BEDA = reg_daten.street
   Case "PLZ"
      BEDA = reg_daten.postalcode
   Case "Land"
      BEDA = reg_daten.c
   Case = "Ort"
      BEDA = reg_daten.l
   Case Else
      BEDA = "Fehler aufgetreten"
End Select
End Function

Besondere Lizenzbedingungen für Programmcode

This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version.
This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details.

(!) Kopiere den Quelltext z.B. in ein Modul der Standard-Bibliothek von OpenOffice.org, dann ist sie immer verfügbar.

Aufrufen in einer Zelle ganz normal, Parameter sind in der Funktion ersichtlich. Zum Beispiel: =BEDA("Vorname") liefert den Vornamen, =BEDA("Vorname") & " " & BEDA("Nachname") liefert Vorname und Nachname usw.


KategorieCalc KategorieMakro


LizenzBedingungen | AnbieterKennzeichnung | DatenschutzErklärung | Stand: 2013-04-28