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
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
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
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
ich wollte es halt etwas umfangreicher haben...
mfG
Thomas Lambeck
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
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
DANKE!
war nicht böse gemeint ;-).
Gruß
AJK
mfG
Thomas Lambeck