Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

[Excel 2003] Username in Zelle einfügen

2,450 views
Skip to first unread message

Ralf Brinkmann

unread,
May 12, 2013, 1:24:08 PM5/12/13
to
Hallo zusammen!

Wie kann ich in eine Zelle meiner Tabelle automatisch den Usernamen
einf�gen lassen? Geht das auch irgendwie per Funktionsformel oder nur
mit VBS?

Und gibt es da noch weitere Userangeben? Ich kann mich erinnern, dass
ich beim Erststart von Word oder Excel nach Namen und nach meinem K�rzel
gefragt wurde. Kann man das auch automatisiert einf�gen?

Gru�, Ralf
--
Windows XP Home SP3
Opera 12.15 - 1748 Final
The Bat! Pro 5.3.8.8

Claus Busch

unread,
May 12, 2013, 1:27:49 PM5/12/13
to
Hallo Ralf,

Am Sun, 12 May 2013 19:24:08 +0200 schrieb Ralf Brinkmann:

> Wie kann ich in eine Zelle meiner Tabelle automatisch den Usernamen
> einf�gen lassen? Geht das auch irgendwie per Funktionsformel oder nur
> mit VBS?

das geht nur mit VBA:
Application.UserName ist der Excel-Nutzer, wenn er sich in Excel extra
anmelden muss.
Environ("UserName") ist der beim Betriebssystem angemeldete Benutzer.


Mit freundlichen Gr��en
Claus Busch
--
Win XP Prof SP3 / Vista Ultimate SP2
Office 2003 SP3 /2007 Ultimate SP3

Díetmar Vollmeíer

unread,
May 12, 2013, 2:26:45 PM5/12/13
to
Sch�nen Abend Ralf!

*Ralf Brinkmann* schrieb am 12.05.2013 um 19:24 Uhr...
> Wie kann ich in eine Zelle meiner Tabelle automatisch den Usernamen
> einf�gen lassen? Geht das auch irgendwie per Funktionsformel oder nur
> mit VBS?

Lege einen neuen Bereichsnamen fest
* Einf�gen -> Namen -> Namen definieren
* Formeln -> Bereich "Definierte Namen" -> Namen definieren

der da wie folgt lautet

Name : Benutzer
Bezieht sich auf : =DATEI.ZUORDNEN(36)

Wenn du jetzt den Benutzernamen einf�gen m�chtest, dann schreib einfach
in die gew�nschte Zelle

=Benutzer

HTH
--
Servus | Tr�ume nicht dein Leben, sondern lebe deine Tr�ume
Didi |

Ralf Brinkmann

unread,
May 12, 2013, 2:57:56 PM5/12/13
to
Hallo Claus!

*Claus Busch*:

> Application.UserName ist der Excel-Nutzer, wenn er sich in Excel extra
> anmelden muss.
> Environ("UserName") ist der beim Betriebssystem angemeldete Benutzer.

Okay, danke!

Ralf Brinkmann

unread,
May 12, 2013, 3:05:55 PM5/12/13
to
Hallo Didi!

*D�etmar Vollme�er*:

> Lege einen neuen Bereichsnamen fest
> * Einf�gen -> Namen -> Namen definieren
> * Formeln -> Bereich "Definierte Namen" -> Namen definieren

Danke, dass Du es gleich f�r Excel 2003 und 2010 hingeschrieben hast.

> der da wie folgt lautet

> Name : Benutzer
> Bezieht sich auf : =DATEI.ZUORDNEN(36)

> Wenn du jetzt den Benutzernamen einf�gen m�chtest, dann schreib einfach
> in die gew�nschte Zelle

> =Benutzer

Habe es gerade mal unter Excel 2010 ausprobiert. Sobald ich RETURN
dr�cke, wird der Eintrag in der Zelle umgewandelt in "
=DATEI.ZUORDNEN(36)" anstatt eines Benutzernamens. Muss ich da noch
irgendwas machen? Irgendwie formatieren?

In Excel 2003 kann ich es erst morgen im B�ro ausprobieren.

Díetmar Vollmeíer

unread,
May 12, 2013, 3:49:38 PM5/12/13
to
*Ralf Brinkmann* schrieb am 12.05.2013 um 21:05 Uhr...
> Habe es gerade mal unter Excel 2010 ausprobiert. Sobald ich RETURN
> dr�cke, wird der Eintrag in der Zelle umgewandelt in "
> =DATEI.ZUORDNEN(36)" anstatt eines Benutzernamens. Muss ich da noch
> irgendwas machen? Irgendwie formatieren?

Hmm, gute Frage. Hier unter XL2010 funktioniert es ohne Probleme.

So schaut das Ganze bei mir aus
-> http://s3.imgimg.de/uploads/20130512211341fdf80f9bpng.png
-> http://s3.imgimg.de/uploads/20130512211059ffa9bd94png.png
--
Servus | Immer auf der Suche nach der Antwort auf die allumfassende
Didi | Frage: Wo ist mein Kugelschreiber?

Ralf Brinkmann

unread,
May 12, 2013, 4:44:54 PM5/12/13
to
Hallo Didi!

*D�etmar Vollme�er*:

Komisch, jetzt geht's bei mir auch. Vielleicht habe ich vorhin irgendwo
ein Leerzeichen zuviel gesetzt oder sonstwas.

Danksch�n an Euch beide. Ich werde beide L�sungen morgen mal im B�ro
ausprobieren.

Kann man eigentlich irgendwo NACH der Installation den eingegebenen
Benutzernamen und das K�rzel nochmal �ndern? Man k�nnte sich ja vorher
zum Beispiel vertippt haben.

Claus Busch

unread,
May 12, 2013, 5:03:33 PM5/12/13
to
Hallo Ralf,

Am Sun, 12 May 2013 22:44:54 +0200 schrieb Ralf Brinkmann:

> Kann man eigentlich irgendwo NACH der Installation den eingegebenen
> Benutzernamen und das K�rzel nochmal �ndern? Man k�nnte sich ja vorher
> zum Beispiel vertippt haben.

bei Office geht das in den Optionen. F�r das Betriebssystem musst du in
Systemsteuerung => Benutzerkonten.

Díetmar Vollmeíer

unread,
May 13, 2013, 1:11:34 PM5/13/13
to
Sch�nen Abend Ralf!

*Ralf Brinkmann* schrieb am 12.05.2013 um 22:44 Uhr...
> Kann man eigentlich irgendwo NACH der Installation den eingegebenen
> Benutzernamen und das K�rzel nochmal �ndern? Man k�nnte sich ja vorher
> zum Beispiel vertippt haben.

Bei XL2010 hab ich das K�rzel noch nicht gefunden. Allerdings hat ebend
XL2010 mich nach Namen und K�rzel gefragt, als ich den Namen in den
Optionen gel�scht und Excel neu gestartet hab.

HTH
--
Servus | K�nnte man sich nicht das Verbandszeug sparen, wenn man sich
Didi | das Knie gleich an Pflastersteinen aufschl�gt?

Ralf Brinkmann

unread,
May 13, 2013, 3:49:23 PM5/13/13
to
Hallo Didi!

*D�etmar Vollme�er*:

> Bei XL2010 hab ich das K�rzel noch nicht gefunden. Allerdings hat ebend
> XL2010 mich nach Namen und K�rzel gefragt, als ich den Namen in den
> Optionen gel�scht und Excel neu gestartet hab.

Tja, genau das K�rzel w�re noch das, was mich besonders interessieren
w�rde. Wenn Du noch was finden solltest...

Díetmar Vollmeíer

unread,
May 13, 2013, 4:45:43 PM5/13/13
to
*Ralf Brinkmann* schrieb am 13.05.2013 um 21:49 Uhr...
>> Bei XL2010 hab ich das K�rzel noch nicht gefunden. Allerdings hat ebend
>> XL2010 mich nach Namen und K�rzel gefragt, als ich den Namen in den
>> Optionen gel�scht und Excel neu gestartet hab.

> Tja, genau das K�rzel w�re noch das, was mich besonders interessieren
> w�rde. Wenn Du noch was finden solltest...

Wenn M$ ein Programm aus seinem Office-Paket bevorzugt hat, dann Word -
und tadaa, da ist es auch in den Optionen (Allgemein) zu finden.

Allerdings h�tte ich auch schon gesucht, wie man das K�rzel in Excel per
Formel einf�gen kann, da bin ich aber leider nicht f�ndig geworden.
--
Servus | 10 von 100 Europ�ern k�nnen nicht rechnen - das sind �ber 17%!
Didi |

Ralf Brinkmann

unread,
May 13, 2013, 5:09:13 PM5/13/13
to
Hallo Didi!

*D�etmar Vollme�er*:

> Wenn M$ ein Programm aus seinem Office-Paket bevorzugt hat, dann Word -
> und tadaa, da ist es auch in den Optionen (Allgemein) zu finden.

Prost! :-)

> Allerdings h�tte ich auch schon gesucht, wie man das K�rzel in Excel per
> Formel einf�gen kann, da bin ich aber leider nicht f�ndig geworden.

Hm, was hei�t den "K�rzel" auf Englisch? Vielleicht "UserInitials"? Oder
so �hnlich?

Claus Busch

unread,
May 14, 2013, 4:16:01 AM5/14/13
to
Hallo Ralf,

Am Mon, 13 May 2013 23:09:13 +0200 schrieb Ralf Brinkmann:

> Hm, was hei�t den "K�rzel" auf Englisch? Vielleicht "UserInitials"? Oder
> so �hnlich?

Word hat in den Eigenschaften auch die Initialen des UserNamens. Und in
Word funktioniert auch ganz einfach:
Sub Test()
MsgBox Application.UserInitials
End Sub
In Excel k�nntest du die Initialen mit den Stringfunktionen (Links,
Rechts, Teil) aus dem UserNamen auslesen.

Ralf Brinkmann

unread,
May 14, 2013, 12:03:05 PM5/14/13
to
Hallo Claus!

*Claus Busch*:

> In Excel k�nntest du die Initialen mit den Stringfunktionen (Links,
> Rechts, Teil) aus dem UserNamen auslesen.

Ja, das habe ich schon gelesen, aber das entspricht nicht dem, was
unsere User so als Initialien selbst eingeben. Deshalb w�re es schon
sch�ner gewesen, wenn ich das direkt h�tte auslesen k�nnen.

Danke trotzdem.

Thomas Kühn

unread,
May 15, 2013, 3:32:10 AM5/15/13
to
Hallo Ralf,
>
> Ja, das habe ich schon gelesen, aber das entspricht nicht dem, was
> unsere User so als Initialien selbst eingeben. Deshalb w re es schon
> sch ner gewesen, wenn ich das direkt h tte auslesen k nnen.
>

Versuchs mal so:

Pubolic Function UI() As String
Dim obj As Object
Set obj = CreateObject("Word.Application")
UI = obj.UserInitials
Set obj = Nothing
End Function


Gruß Thomas

Ralf Brinkmann

unread,
May 15, 2013, 10:42:11 AM5/15/13
to
Hallo Thomas!

*Thomas K�hn*:

> Versuchs mal so:

> Pubolic Function UI() As String
> Dim obj As Object
> Set obj = CreateObject("Word.Application")
> UI = obj.UserInitials
> Set obj = Nothing
> End Function

Und wohin soll ich das schreiben und wie aufrufen?

Volker Neurath

unread,
May 16, 2013, 12:22:59 AM5/16/13
to
Ralf Brinkmann <ralf.brinkma...@t-online.de> Wrote in message:
> Hallo Thomas!
>
> *Thomas Kühn*:
>
>> Versuchs mal so:
>
>> Pubolic Function UI() As String
>> Dim obj As Object
>> Set obj = CreateObject("Word.Application")
>> UI = obj.UserInitials
>> Set obj = Nothing
>> End Function
>
> Und wohin soll ich das schreiben und wie aufrufen?

Mit ALT+F11 den. VBA Editor öffnen dort ein Modul erstellen,
obigen Code einfügen Editor nach speichern verlassen

Jetzt in eine Zelle =UI() schreiben, dass wars
So hat du deine erste benutzerdefinierte Funktion erstellt
--
Ich bin unschuldig, ich habe sie nicht gewaehlt

Thomas Kühn

unread,
May 16, 2013, 5:08:53 AM5/16/13
to
Hallo Ralf

>
> Und wohin soll ich das schreiben und wie aufrufen?

Wie schon erwähnt im VBA Editor.
Mit Alt-F11 öffnen, dann über
Einfügen - Modul
ein neues Modul erstellen und dort die Funktion
hineinkopieren.

Dieses mal korrigiert:


Public Function UI() As String
On Error Goto Err_UI
Dim obj As Object
Set obj = CreateObject("Word.Application")
UI = obj.UserInitials
obj.Quit
Set obj = Nothing
Exit Function

Err_UI:
UI = "#" & Err.Description

End Function

Die Funktion kann dann wie jede andere Excel
Funktion aufgerufen werden.

Gruß Thomas

Ralf Brinkmann

unread,
May 16, 2013, 3:11:23 PM5/16/13
to
Hallo Volker!

*Volker Neurath*:

> Mit ALT+F11 den. VBA Editor �ffnen dort ein Modul erstellen,
> obigen Code einf�gen Editor nach speichern verlassen
>
> Jetzt in eine Zelle =UI() schreiben, dass wars
> So hat du deine erste benutzerdefinierte Funktion erstellt

Ah, jetzt ja! Danke!

Ralf Brinkmann

unread,
May 16, 2013, 3:15:24 PM5/16/13
to
Hallo Thomas!

*Thomas K�hn*:

> Wie schon erw�hnt im VBA Editor.
> Mit Alt-F11 �ffnen, dann �ber
> Einf�gen - Modul
> ein neues Modul erstellen und dort die Funktion
> hineinkopieren.

Ich hatte es in das VBAProjekt "Diese Arbeitsmappe" geschrieben. Deshalb
hat es nichts getan.

> Dieses mal korrigiert:

Wunderbar, werde es dann mal im B�ro ausprobieren. Hier zuhause klappt
es schon mal.
0 new messages