Benuzter welcher zuletzt gespeichert hat in Zelle



Excel-Version: 8.0 (Office 97)
nach unten

Betrifft: Benuzter welcher zuletzt gespeichert hat in Zelle
von: Bendra
Geschrieben am: 04.06.2002 - 10:04:45

hi

ich suche eine lösung, mit der es möglich ist, den benutzer in einer beliebigen zellen anzuzeigen, welcher das dokument zuletzt bearbeitet und gespeichert hat! sollte sich immer nach dem speichern anpassen und netzwerkfähig sein.

Greetz Bendra


nach oben   nach unten

Re: Benuzter welcher zuletzt gespeichert hat in Zelle
von: Thomas Lambeck
Geschrieben am: 04.06.2002 - 12:16:57

Hallo Bendra,

ich liefere Dir hier mal den Code, den ich verwende, um Änderungen in einer Datei zu speichern:

Mit "Änderungsliste_anzeigen()" und "Änderungsliste_ausblenden()" wird das Tabellenblatt "Änderungsliste" ein- und ausgeblendet, damit niemand von Hand darin "rumschreibt".

Ich hoffe das hilft Dir weiter.
(Bei uns läuft es unter Excel 97 und 2000)

mfG
Thomas Lambeck

nach oben   nach unten

Re: Benuzter welcher zuletzt gespeichert hat in Zelle
von: ajk
Geschrieben am: 04.06.2002 - 12:26:06

Hallo,

ich habe eine etwas kürzere Lösungsidee:
In die gewünschte Datei:

In VBA-Editor.
Diese Arbeitsmappe:

Sub Workbook_Open()
Calculate
End Sub

In ein Modul:

Function benutzer()
benutzer = ActiveWorkbook.BuiltinDocumentProperties(7)
End Function

Zum Aufrufen in der Mappe einfach in die gewünschte Zelle:

=Benutzer()
als Formel eingeben.

Noch besser wäre es die Funktion in eine .XLA Datei zu schreiben, dann ist sie immer in jeder Datei verfügbar, wenn man diese .xla in den XLSTART-Ordner kopiert.

Gruß
Andreas

nach oben   nach unten

Re: Benuzter welcher zuletzt gespeichert hat in Zelle
von: Thomas Lambeck
Geschrieben am: 04.06.2002 - 12:38:17

Na gut,

ich wollte es halt etwas umfangreicher haben...

mfG
Thomas Lambeck


nach oben   nach unten

Re: Benuzter welcher zuletzt gespeichert hat in Zelle
von: geri
Geschrieben am: 04.06.2002 - 12:53:23

es geht auch so --> Code in Arbeitsblatt und in Zelle A1 stehen nach Änderung die Infos

Private Sub Worksheet_Change(ByVal Target As range)
If Target.Address = "$A$1" Then Exit Sub
range("A1") = "Geänd. von " & _
Application.UserName & _
" am " & _
Format(Date, "dd.mm.yy")
'ActiveWorkbook.Save
End Sub


gruss
geri


nach oben   nach unten

Nur wenn richtiger Benutzer eingetragen
von: Thomas Lambeck
Geschrieben am: 04.06.2002 - 13:32:10

Hallo geri,

Das liefert aber nur den Benutzernamen, auf den die Office-Installation lautet.
(Würde in einer Firma evtl. "Administrator" oder "Firmenname" sein!)
Nicht den am Rechner gerade arbeitenden Benutzer.

Die beste Lösung, (wenn's einfach sein soll) dürfte wohl die Lösung von Andreas sein.

mfG
Thomas Lambeck


nach oben   nach unten

Re: Benuzter welcher zuletzt gespeichert hat in Zelle
von: Bendra
Geschrieben am: 04.06.2002 - 13:39:38

danke, das war mir eine super hilfe! es funktioniert *freu*

DANKE!


nach oben   nach unten

Re: Nur wenn richtiger Benutzer eingetragen
von: geri
Geschrieben am: 04.06.2002 - 19:21:19

liefert den Angemeldeten USER am PC, es war die Rede in der Anfrage von Firmennetz, habe dies so verstanden

nach oben   nach unten

Re: Benuzter welcher zuletzt gespeichert hat in Zelle
von: AJK
Geschrieben am: 06.06.2002 - 10:01:16

Hallo Thomas,

war nicht böse gemeint ;-).


Gruß
AJK


nach oben   nach unten

Re: Benuzter welcher zuletzt gespeichert hat in Zelle
von: Thomas Lambeck
Geschrieben am: 07.06.2002 - 11:35:08

Hab's auch nicht so verstanden.

mfG
Thomas Lambeck


 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Benuzter welcher zuletzt gespeichert hat in Zelle"