Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Benutzername in Excel-Fußzeile

185 views
Skip to first unread message

Karl Haidvogel

unread,
Oct 9, 2001, 3:28:51 AM10/9/01
to
Hallo!

Verwende Office 2000 unter Win NT 4.0 Server/Client

Auf Ausdrucken aus Excel-Tabellen wollen wir in der Fußzeile oder einmal am
Beginn des Ausdruckes den Benutzernamen des aktuellen Benutzers aus WIN NT
stehen haben. In Word ist es einfach, Excel scheint diese Funktion nicht zu
haben.

Vielen Dank
Hannes


Monika Weber

unread,
Oct 9, 2001, 4:17:39 AM10/9/01
to
Hallo Hannes

> Auf Ausdrucken aus Excel-Tabellen wollen wir in der Fußzeile oder einmal
am
> Beginn des Ausdruckes den Benutzernamen des aktuellen Benutzers aus WIN NT
> stehen haben. In Word ist es einfach, Excel scheint diese Funktion nicht
zu
> haben.

Versuchs mal damit:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
With ActiveSheet.PageSetup
.CenterFooter = Author
End With
End Sub

Grüessli
Monika

Stefan Holz

unread,
Oct 9, 2001, 4:25:45 AM10/9/01
to
Hallo Monika, hallo Hannes,

Monikas Version zeigt den Autor der Tabelle. Wenn ich dich richtig
verstanden habe, wolltest du aber den aktuellen Benutzer haben? Wenn ja,
dann Monikas Vorschlag nur minimal abändern:

Private Sub Workbook_BeforePrint(Cancel As Boolean)

ActiveSheet.PageSetup.RieghtFooter = Application.UserName
End Sub

Gruß
Stefan Holz
(Excel 2000 unter Windows NT 4.0 SP6)


Monika Weber <monika...@freesurf.ch> schrieb in im Newsbeitrag:
ecEr8qJUBHA.2112@tkmsftngp05...

Monika Weber

unread,
Oct 9, 2001, 4:32:17 AM10/9/01
to
Hallo Stefan

Da hast Du recht!
Allerdings hat sich bei Dir ein kleiner Tippfehler bei "Right"
eingeschlichen.
So wär's dann ganz perfekt:

> Private Sub Workbook_BeforePrint(Cancel As Boolean)

> ActiveSheet.PageSetup.RightFooter = Application.UserName
> End Sub

Grüessli
Monika


Stefan Holz

unread,
Oct 9, 2001, 4:35:36 AM10/9/01
to
Hoppla, scusi!

Danke Monika. You'r "Right"!

Danke und Gruß
Stefan

Monika Weber <monika...@freesurf.ch> schrieb in im Newsbeitrag:

#d0QIzJUBHA.1788@tkmsftngp05...

0 new messages