Automatischer Eintrag
Jochen
habe ein Makro das mir bei Änderungen im Bereich A10:AD1009 in Zelle C6 wer und wann die Änderung durchgeführt wurden.
So sieht das Makro aus:
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Errh
Application.EnableEvents = False
If Not Application.Intersect(Target, Range("A10:AD1009")) Is Nothing Then
Range("C6").Value = "Letzte Änderung wude durchgeführt am " & Date _
& " von " & Application.UserName
End If
Errh:
Application.EnableEvents = True
End Sub
Das Makro läuft nur solange kein Blattschutz vorhanden ist, mit Blattschutz leider nicht. Der Blattschutz sollte aber bleiben.
Hat jemand eine Lösung für mich parat?
Danke im Voraus
Gruß
Jochen