Hallo,
rolf monse schrieb:
> im Writer gibt es die Funktion "Feldbefehl - Autor". Ich suche eine
> solche M�glichkeit im Calc, habe aber nichts gefunden. Wie
> kann man dies
> im Calc realisieren?
Zum Beispiel mit einer benutzerdefinierten Funktion:
Function BEDA (wert as String)
'Benutzerdaten in Calc verf�gbar machen
'Autor: J�rg Schmidt
'Stand: 07.01.2005
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.Configura
tionAccess", 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
In der Zelle, dann einfach diese Formel verwenden:
=BEDA("Vorname")&" "&BEDA("Nachname")
Gru�
J�rg
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
