| |
| 17 Optionen für korrosionsbeständige Teile: Metalle und Nachbearbeitungen, ein Fachartikel
|
Autor
|
Thema: Benutzername autom. in Kopfzeile (7492 mal gelesen)
|
Ruebe2000 Mitglied Blechbatscher
Beiträge: 62 Registriert: 10.07.2012 Ansys Classic Ansys Workbench ProEngineer Mechanica
|
erstellt am: 16. Jul. 2012 14:58 <-- editieren / zitieren --> Unities abgeben:
Hallo Leute, ist es möglich den Namen des Benutzers automatisch in die Kopf- bzw. Fußzeile eintragen zu lassen? Excel gibt ja schon gewisse Optionen unter "Kopf- und Fußzeilentools" an. Der Benutzername ist aber leider nicht dabei, was ich aber (im Moment jedenfalls) für recht wichtig halte. Und Excel kennt ja schließlich den Namen (Datei->Optionen->Allgemein->Benutzername) wie kann man evtl. über ein Makro auf diesen Name zugreifen? Viele Grüße, Markus Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Paulchen Mitglied Bauing./SW-Entwickler
Beiträge: 1227 Registriert: 19.08.2004 Büro: Win10 Enterprise 64bit, Office Professional Plus 2013 - Privat: Linux Mint 15, LibreOffice
|
erstellt am: 16. Jul. 2012 15:41 <-- editieren / zitieren --> Unities abgeben: Nur für Ruebe2000
|
Ruebe2000 Mitglied Blechbatscher
Beiträge: 62 Registriert: 10.07.2012 Ansys Classic Ansys Workbench ProEngineer Mechanica
|
erstellt am: 16. Jul. 2012 16:03 <-- editieren / zitieren --> Unities abgeben:
Hallo Paulchen, danke für deine schnelle Hilfe. Arbeite mich noch in das Thema Visual Basic ein und bin da noch nicht so sicher. Wenn ich den ganzen Vorgang mit dem Makrorecorder aufzeichne und als Beispiel die Seitenanzahl einfüge erhalte ich diesen Code (siehe Bild anbei). An welche(n) Stelle(n) muss ich Application.Username einfügen? Gruß, Markus Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Thomas Harmening Moderator Arbeiter ツ
Beiträge: 2897 Registriert: 06.07.2001 Das Innerste geäussert und aufs Äusserste verinnerlicht
|
erstellt am: 16. Jul. 2012 17:03 <-- editieren / zitieren --> Unities abgeben: Nur für Ruebe2000
wenn bei .LeftHeader = "&S" steht um beim rest nix könnte man "&S" durch Application.UserName ersetzen und mal testen was passiert.
Code: .LeftHeader = Application.UserName .CenterHeader = "" .RightHeader = "" .LeftFooter = "" .CenterFooter = "" .RightFooter = ""
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Ruebe2000 Mitglied Blechbatscher
Beiträge: 62 Registriert: 10.07.2012 Ansys Classic Ansys Workbench ProEngineer Mechanica
|
erstellt am: 17. Jul. 2012 08:41 <-- editieren / zitieren --> Unities abgeben:
|
MWN Mitglied Dipl.-Ing.
Beiträge: 492 Registriert: 14.02.2007
|
erstellt am: 17. Jul. 2012 09:07 <-- editieren / zitieren --> Unities abgeben: Nur für Ruebe2000
Wenn du im VBA Editor einfach mal folgenden Code mit F8 durchlaufen lässt, siehst du, was Application.UserName zurückliefert! Code: Sub test() MsgBox Application.UserName End Sub
Grüße Tobias ------------------ Besucht mich doch mal in meiner Tischlerei "...Kommunikation ist nur so gut wie ihr Ergebnis..." - frei nach Richard Bandler / John Grinder "...Wenn du das tust, was du schon immer tust, wirst du auch nur das erhalten, was du schon immer erhalten hast..." Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Ruebe2000 Mitglied Blechbatscher
Beiträge: 62 Registriert: 10.07.2012 Ansys Classic Ansys Workbench ProEngineer Mechanica
|
erstellt am: 17. Jul. 2012 10:01 <-- editieren / zitieren --> Unities abgeben:
Das ist ja alles recht schön, ich hätte gerne den Namen des momentanen Benutzers in ein Feld eingetragen bekommen. Die Tabelle wird von verschiedenen Rechnern aus gestartet und bearbeitet. Der Name dient dabei als Unterschrift des jeweiligen Benutzers. [Diese Nachricht wurde von Ruebe2000 am 17. Jul. 2012 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
MWN Mitglied Dipl.-Ing.
Beiträge: 492 Registriert: 14.02.2007
|
erstellt am: 17. Jul. 2012 10:11 <-- editieren / zitieren --> Unities abgeben: Nur für Ruebe2000
Probier mal: Code: Environ("USERNAME")
und/oder Code: Environ("COMPUTERNAME")
Grüße Tobias ------------------ Besucht mich doch mal in meiner Tischlerei "...Kommunikation ist nur so gut wie ihr Ergebnis..." - frei nach Richard Bandler / John Grinder "...Wenn du das tust, was du schon immer tust, wirst du auch nur das erhalten, was du schon immer erhalten hast..." Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Ruebe2000 Mitglied Blechbatscher
Beiträge: 62 Registriert: 10.07.2012 Ansys Classic Ansys Workbench ProEngineer Mechanica
|
erstellt am: 17. Jul. 2012 10:31 <-- editieren / zitieren --> Unities abgeben:
|