Autor
|
Thema: Windows-Benutzername automatisch in Tabellenzelle (22649 mal gelesen)
|
EWcadmin Ehrenmitglied V.I.P. h.c. Konstrukteur (Dipl.-Ing. Maschinenbau), CAD-/PDM-Admin.
Beiträge: 3202 Registriert: 27.10.2005 Creo 4.0 Parametric M150 Windchill 12.0.2.3 HP Z4 G4 mit 32GB RAM NVIDIA Quadro P4000 Windows 10 Enterprise
|
erstellt am: 19. Jun. 2008 10:09 <-- editieren / zitieren --> Unities abgeben:
Hallo, ich weiß nicht wonach ich noch suchen soll, jedenfalls brachte meine bisherige Suche keine Treffer. Ich möchte folgendes erreichen: In einer Excel-Tabelle, die von mehreren Personen bearbeitet werden kann und soll, möchte ich in einer Tabellenzelle den jeweils aktuellen Bearbeiter eingetragen haben. Aber möglichst nur, wenn der Benutzer auch wirklich was geändert hat und dann speichert. Da das immer wieder von Benutzern vergessen wird, soll das automatisch gehen unter Zuhilfenahme des Windows-Anmeldenamens. Evtl. kann das aber auch in der benutzerdefinierten Kopfzeile stehen. Ziel ist, das ein Betrachter der Tabelle sehen kann, wer die letzte Änderung gemacht hat. Auch wenn ein Betrachter die Tabelle nur ausdrucckt, soll der Name des letzten Bearbeiters stehen, nicht aber der Name des Betrachters. Geht sowas überhaupt? Und wenn ja, wie geht das? Ich bin für jede Hilfe dankbbar. ------------------ Grüße aus OWL, Thomas CAD.DE macht Spaß! Wichtige Links für noch mehr Spaß: Richtig Fragen - Nettiquette - Suchfunktion - System-Info - 7er-Regel - Unities ProE macht Spaß - viel ProE macht viel Spaß ! (Zitat, frei nach meinem ProE-Beibringer) Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
tunnelbauer Ehrenmitglied V.I.P. h.c. Bauingenieur
Beiträge: 7085 Registriert: 13.01.2004 ich hab eh keine Probleme damit...
|
erstellt am: 19. Jun. 2008 10:24 <-- editieren / zitieren --> Unities abgeben: Nur für EWcadmin
|
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: 19. Jun. 2008 10:26 <-- editieren / zitieren --> Unities abgeben: Nur für EWcadmin
Hallo EWcadmin, ja - sowas geht. Mir schwebt der Weg per VBA (Makro) vor. Wie fit bist Du da? Drücke in xls Alt+F11. In DieseArbeitsmappe setzt Du folgenden Code: Private Sub Workbook_Open() Application.Run("WinName") End Sub
In ein Modul fügst Du das hier ein:Code: Option Explicit'Ermittelt den Windows-Benutzernamen ( <> UserName in VBA!) - 11.10.2007 'Quelle: http://www.schmittis-page.de/index.html?/excel/vba/t10.htm Declare Function GetUserName Lib "advapi32.dll" _ Alias "GetUserNameA" (ByVal lpBuffer As String, _ nSize As Long) As Long Private Function WinName() Dim B As String * 100 Dim L As Long L = 100 GetUserName B, L WinName = Left(B, L - 1) End Function
Das liefert Dir den Windows-Benutzernamen. Achtung: Der Excel-Benutzername (in xls unter Extras-Optionen-Allgemein) kann ein ganz anderer sein; diesen erhälst Du über ein simples Application.UserName in VBA. Mit ThisWorkbook.BuiltinDocumentProperties(3) erfährst Du, wer zuletzt gespeichert hat.Hilft das schon? Frederik ------------------ DIN1055.de | Lastannahmen für Anwender Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
EWcadmin Ehrenmitglied V.I.P. h.c. Konstrukteur (Dipl.-Ing. Maschinenbau), CAD-/PDM-Admin.
Beiträge: 3202 Registriert: 27.10.2005
|
erstellt am: 19. Jun. 2008 10:28 <-- editieren / zitieren --> Unities abgeben:
|
EWcadmin Ehrenmitglied V.I.P. h.c. Konstrukteur (Dipl.-Ing. Maschinenbau), CAD-/PDM-Admin.
Beiträge: 3202 Registriert: 27.10.2005 Creo 4.0 Parametric M150 Windchill 12.0.2.3 HP Z4 G4 mit 32GB RAM NVIDIA Quadro P4000 Windows 10 Enterprise
|
erstellt am: 19. Jun. 2008 10:53 <-- editieren / zitieren --> Unities abgeben:
Hallo Frederic, erst mal vielen Dank für das script. Ne, fit bin ich überhaupt nicht drin, da ich eher ein 08/15-Anwender von Excel bin. Aber da ich ja jetzt hier eine Lösung habe, muss ich mich da wohl einarbeiten. Ich möchte das Ganz gerne auch immer vollständig verstehen und nicht nur einfach umsetzen. Ich werde daran arbeiten
------------------ Grüße aus OWL, Thomas CAD.DE macht Spaß! Wichtige Links für noch mehr Spaß: Richtig Fragen - Nettiquette - Suchfunktion - System-Info - 7er-Regel - Unities ProE macht Spaß - viel ProE macht viel Spaß ! (Zitat, frei nach meinem ProE-Beibringer) 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: 19. Jun. 2008 12:46 <-- editieren / zitieren --> Unities abgeben: Nur für EWcadmin
|
EWcadmin Ehrenmitglied V.I.P. h.c. Konstrukteur (Dipl.-Ing. Maschinenbau), CAD-/PDM-Admin.
Beiträge: 3202 Registriert: 27.10.2005
|
erstellt am: 19. Jun. 2008 13:12 <-- editieren / zitieren --> Unities abgeben:
|