Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

User einfügen

Betrifft: User einfügen von: hugo
Geschrieben am: 08.11.2012 15:44:39

Hallo liebe Excelgemeinde

Kann mir ev. jemand von Euch sagen, wie ich es fertig bringe, dass beim Öffnen der Datei Statistik.xls der Username des momentanen Users in der Zelle A1 eingetragen wird?

Bereits probiert:

Public Function fnc_GetUsername() As String
    fnc_GetUsername = Environ("Username")
End Function

in ein Modul eingetragen und der Zelle A1 Formel =fnc_GetUsername() zugewiesen.

Funktioniert jedoch nicht. Kommt immer der gleiche User.

Besten Dank für Eure Hilfe.

Gruss Hugo

  

Betrifft: AW: User einfügen von: ChrisL
Geschrieben am: 08.11.2012 15:50:50

Hi Hugo

Vermutlich wird einfach die Neuberechnung nicht ausgelöst. Probier mal...

Public Function fnc_GetUsername() As String
    Application.Volatile
    fnc_GetUsername = Environ("Username")
End Function
cu
Chris


  

Betrifft: AW: User einfügen von: hugo
Geschrieben am: 08.11.2012 15:59:33

Hi Chris

Funktioniert leider nicht.

Gruss Hugo


  

Betrifft: AW: User einfügen von: ChrisL
Geschrieben am: 08.11.2012 16:10:34

Hi Hugo

Mach mal eine MsgBox rein, dann siehst du, ob der Code überhaupt angesprochen wird.

Public Function fnc_GetUsername() As String
    Application.Volatile
    fnc_GetUsername = Environ("Username")
    MsgBox "Test"
End Function
cu
Chris


  

Betrifft: AW: User einfügen von: Rudi Maintaire
Geschrieben am: 08.11.2012 16:11:12

Hallo,
einfach im Workbook_open.
In DieseArbeitsmappe:

Private Sub Workbook_Open()
  Sheets(1).Cells(1, 1) = Environ("Username")
End Sub

Gruß
Rudi


  

Betrifft: AW: User einfügen von: hugo
Geschrieben am: 08.11.2012 16:22:23

Hallo Chris
Hallo Rudi

Die Version von Rudi funktioniert einwandfrei!

Spitze!

Danke vielmals!!

Gruss Hugo


 

Beiträge aus den Excel-Beispielen zum Thema "User einfügen"