benutzernamen in excel einfügen

Dieses Thema benutzernamen in excel einfügen im Forum "Microsoft Office Suite" wurde erstellt von hans jupp, 8. Dez. 2005.

Thema: benutzernamen in excel einfügen hallo, wir haben eine excel-datei auf unserem server, die von verschiedenen benutzern ausgedruckt (aber nicht...

  1. hallo,

    wir haben eine excel-datei auf unserem server, die von verschiedenen benutzern ausgedruckt (aber nicht gespeichert) wird.

    gibt es eine möglichkeit, den windowsanmeldenamen per formel in die datei einzufügen, damit man anhand des ausgedruckten dokuments nachvollziehen kann, wer die datei ausgedruckt hat?

    vielen dank schonmal für eure hilfe :)

    gruß,
    kath.hundefriseursalon
     
  2. Hallo,

    vielleicht hift dir das (eventuell als Workbook_BeforePrint):

    Code:
    Sub Benutzer()
    
    Dim Nutzer As String
    
    Nutzer = Application.UserName
        Application.Goto Reference:=R1C1->gehe zu A1
        ActiveCell.FormulaR1C1 = Nutzer
        Range(A1).Select
    End Sub
    
    Ciao


    Fibo
     
  3. Hallo kath.hundefriseursalon,

    Fibonacci ist schon auf der richtigen Spur :D . Es klappt nur mit Makro.

    Folgende Makro setzt den Namen vor dem Ausdruck in die linke Fußzeile:
    Code:
    Private Sub Workbook_BeforePrint(Cancel As Boolean)
      ActiveSheet.PageSetup.LeftFooter = ausgedruckt von:  & Application.UserName
    End Sub
    Der Code muß in der Code-Seite DieseArbeitsmappe der Datei liegen.

    Gruß Matjes :)
     
  4. hallo,

    vielen dank für die tipps!

    wenn ihr mir jetzt noch einen tipp geben könntet, wie ich den benutzernamen jeweils in->tabelle1' und in->tabelle2' in zelle g34 bekomme ...

    gruß,
    kath.hundefriseursalon
     
  5. Hallo,

    so sollte es gehen:

    1. Diese Arbeitsmappe

    Code:
    Private Sub Workbook_BeforePrint(Cancel As Boolean)
    Benutzer
    End Sub
    
    2. Modul

    Code:
    Sub Benutzer()
    
    Dim Nutzer As String
    
    Nutzer = Application.UserName
        Application.Goto Reference:=Tabelle1!R34C7
        ActiveCell.Value = Nutzer
        Application.Goto Reference:=Tabelle2!R34C7
        ActiveCell.Value = Nutzer
    End Sub
    

    Ciao


    Fibo
     
  6. hallo,

    irgendwie habe ich noch ein problem mit deinem modul ...

    sind die zellbezüge fix oder berechnen sie sich von der cursorposition?
    mein problem dabei ist, der benutzername wird zweimal in tabelle1 eingefügt, jedoch in unterschiedlichen zellen ???

    wenn ich die tabellennamen verändere, muß ich diese dann auch im makro ändern, oder bezieht sich dieses weiter auf die ursprünglichen tabellennamen?

    gruß,
    kath.hundefriseursalon
     
  7. dies sollte klappen
    Code:
    Sub Benutzer()
      On Error Resume Next
      With ActiveWorkbook
        .Worksheets(Tabelle1).Range(G34).Value = Application.UserName
        .Worksheets(Tabelle2).Range(G34).Value = Application.UserName
      End With
      On Error GoTo 0
    End Sub
    Gruß Matjes :)
     
  8. hallo,

    irgendwie funktioniert das leider immer noch nicht ...

    ich habe jetzt:

    1. Diese Arbeitsmappe

    Private Sub Workbook_BeforePrint(Cancel As Boolean)
    Benutzer
    End Sub


    2. Modul

    Sub Benutzer()
    On Error Resume Next
    With ActiveWorkbook
    .Worksheets(Tabelle1).Range(G34).Value = Application.UserName
    .Worksheets(Tabelle2).Range(G34).Value = Application.UserName
    End With
    On Error GoTo 0
    End Sub

    aber er druckt keine benutzernamen ...


    hab ich euch falsch verstanden?


    gruß,
    kath.hundefriseursalon
     
  9. Hallo kath.hundefriseursalon,

    ersetz mal die Tabellennamen in Worksheets(Tabelle1).... und Worksheets(Tabelle2).... gegen die tatsächlichen. Dann sollte es klappen.

    - 1. Tabellenblatt Lasche doppelt klicken
        -> Tabellenname wird vollständig markiert
    - mit Ctrl+C kopieren
    - Tabelle1 in Worksheets(Tabelle1)....  mit dem Kopierten ersetzen  (Shift+Einfg)

    für 2. Tabellennamen analog

    Gruß Matjes :)

    ps: Das Ergebnis kannst du auch in der Seitenvorschau betrachten. Brauchst also nicht drucken.
     
  10. hallo,

    es klappt tatsächlich ...

    klarer fall von benutzerfehler!

    vielen dank nochmal für eure hilfe :)

    gruß,
    kath.hundefriseursalon
     
Die Seite wird geladen...

benutzernamen in excel einfügen - Ähnliche Themen

Forum Datum
Tastatur reagiert nicht nach Neueinrichtung von Windows 7 bei Benutzernamen eingeben Windows 7 Forum 9. Aug. 2014
Nach Benutzernamensänderung kann ich nichts mehr Installieren. Windows XP Forum 29. Okt. 2011
Benutzernamen ändern bei Win7 Windows XP Forum 2. Apr. 2013
Benutzernamen unter "C:/Benutzer" ändern Windows 7 Forum 10. Sep. 2010
Remotedesktop wird nach eingabe des Benutzernamen und Passworts nicht angezeigt. Windows XP Forum 10. Juni 2010