Es ist mal wieder soweit, ich komme bei meinem Problem leider nicht weiter und muss mich wieder mal ans allwissende Excel-Forum auf Herber wenden:
In einer Matrix (Arbeitsblatt Eingabe) sollen von verschiedenen Benutzern in freigegebenen Zellen (bspw. E7) Werte erfasst werden. Im Arbeitsblatt Protokoll (hat genau denselben Aufbau wie Eingabe!) soll in derselben Zelle (Protokoll/E7) protokolliert werden, welcher Benutzer wann welche Zelle verändert hat. Dazu habe ich mir folgenden Code gebastelt:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim Bereich As Range
Dim r
r = ActiveCell.Address
Set Bereich = Range("C5:E8") ' Bereich der Wirksamkeit
Application.EnableEvents = False
If Intersect(Target, Bereich) Is Nothing Then GoTo Ende ' Abbruch, wenn Aktion nicht im _
Zielbereich
Worksheets("Protokoll").Range(r).Value = Application.UserName & "/" & Date & "/" & _
Time
Ende:
Application.EnableEvents = True
End Sub
Das Problem ist jetzt, dass im Protokoll nicht die Zelle mit UserName, Datum und Uhrzeit gefüllt wird, in der ich einen Wert erfasst habe (Eingabe/E7), sondern die Zelle in die ich nach der Erfassung mit dem Cursor springe (egal on Enter-Taste, Pfeiltaste, per Maus, etc.).Hat jemand eine Lösung?
Besten Dank im Voraus.
Gruß,
Stefan