benutzernamen in excel einfügen

  • #1
H

hans jupp

Bekanntes Mitglied
Themenersteller
Dabei seit
20.06.2003
Beiträge
473
Reaktionspunkte
0
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
 
Thema:

benutzernamen in excel einfügen

ANGEBOTE & SPONSOREN

Neueste Themen

Statistik des Forums

Themen
113.838
Beiträge
707.961
Mitglieder
51.491
Neuestes Mitglied
haraldmuc
Oben