UserName automatisch eintragen
Jay
ich möchte in einer Tabelle, die von mehrern Personen bearbeitet wird, immer den letzten Bearbeiter in ein Feld der entsprechenden Zeile eintragen lassen.
Dafür benutze ich folgenden Code
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo ErrExit
Application.EnableEvents = False
With Target
Cells(.Row, 50) = Date
Cells(.Row, 51) = Environ$("USERNAME")
End With
ErrExit:
Application.EnableEvents = True
End Sub
Das hat einfach eigentlich auch ganz gut geklappt, aber so ganz rund scheint es nicht zu laufen. Z.B. ist mir aufgefallen, dass der Benutzer nicht immer überschrieben wird.
Seit kurzem, genau gesagt seit Zeile 165, wird überhaupt nichts mehr in die entsprechenden Felder eingetragen!?
Hat jemand eine Idee wie ich den Code verfeinern könnte?
Vielen Dank im Voraus für eure Mühen.
Gruß
Chris