ich bin auf der Suche nach einem Makro, dass mir anzeigt, wer zuletzt wann eine Änderung in einer Spalte meiner Tabelle vorgenommen hat.
Von Spalte A-Q können meine Kollegen Änderungen vornehmen, das Datum soll in Spalte S und Name der Person in Spalte T via Makro aufgeführt werden.
In jeder Spalte meiner Tabelle.
Ich habe im Forum schon eine fast passende Lösung gefunden, allerdings bezieht das Makro sich nur auf eine Zelle, wenn ich den Bereich erweitere wandert auch die Angabe Name und Datum weiter.
Ich habe schon ziemlich viel herumprobiert, komme aber nicht weiter, da ich noch recht neu in dem Thema bin, ich werde schon ganz verrückt.
Kann mir jemand weiterhelfen?
https://www.herber.de/forum/archiv/1576to1580/1578555_Datum_und_Benutzer_letzte_Aenderung_in_Zelle.html#bottom
Private Sub Worksheet_Change(ByVal Target As Range)
Dim z
On Error GoTo Fehler
If Not Intersect(Range("B:B"), Target) Is Nothing Then
If Target.Row = 1 Then Exit Sub
For Each z In Target
If z.Offset(0, -1) "" Then
Application.EnableEvents = False
z.Offset(0, 1) = Format(Date, "DD.MM.YYYY")
z.Offset(0, 2) = Environ("Username")
End If
Next
End If
'*** Fehlerbehandlung
Err.Clear
Fehler:
Application.EnableEvents = True
If Err.Number 0 Then MsgBox "Fehler: " & _
Err.Number & vbLf & Err.Description: Err.Clear
End Sub