Zuletzt bearbeitet von

[Wulfgar]

Hallo,
die Frage ist wahrscheinlich schon öfter aufgetreten, leider habe ich aber nichts brauchbares dazu gefunden. In meiner Firma arbeiten mehrere Leute an einer Excel-Tabelle. Ich möchte jetzt in einer Zelle anzeigen lassen, wer die Tabelle zuletzt bearbeitet hat und wenn möglich auch wann und am besten, sobald der Bearbeiter die Datei speichert. Ist in Excel dafür bereits eine Funktion vorhanden oder kann ich das irgendwie über Makros lösen?

Vielen Dank für die Hilfe!!

LG Wolfgang

[RPP63]

Moin!
Steht doch in den Eigenschaften im Register Datei:

Dateiupload bitte im Forum! So geht es: Klick mich!
src="
Dateiupload bitte im Forum! So geht es: Klick mich!
" />

Dies ist jedoch der Application.UserName
Wenn Du den Windows-Anmeldenamen willst, geht dies nur mittels VBA:
Ins Klassenmodul DieseArbeitsmappe:

Code:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Tabelle1.Range("J1") = Environ("Username")
End Sub

Gruß Ralf

[coemm]

Hallo Wolfgang,

hilft dir das weiter?

[Peter]

Hallo,

oder vielleicht etwas in dieser Art?

Code:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
ActiveWorkbook.ActiveSheet.Range("A1") = "Zuletzt geändert: " & _
Application.UserName & " " & Now
End Sub

Der Code gehört in das Modul 'DieseArbeitsmappe'

[Wulfgar]

Wow, vielen Dank für die schnellen Antworten!! Ich werde es mal mit der VBA-Lösung probieren, "Änderungen nachverfolgen" verwende ich bereits, aber ich hätte es gern auf einen Blick ersichtlich, wer zuletzt an der Arbeitsmappe gearbeitet hat.

[Wulfgar]

@ Peter: Das war genau das wonach ich gesucht habe, vielen Dank!