Zeile geändert - Datumsausgabe
Andre
eben hatte Klaus mir schon geholfen mit einem anderen kleinen Anliegen. Habe unten einen Code mit dem man wenn in der Spalte A ein Änderung erfolgt ein Datum und Benutzer in einer der nachfolgenden Spalten eingetragen wird.
So nun meine Frage:
Wie muss man den Code abändern, damit erkannt wird wenn eine Änderung in einer beliebigen Zeile (ab Zeile 8) von Spalte B bis I und M gemacht wird.
---
Hier der Code:
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Not Intersect(Target, Range("a8:a100")) Is Nothing Then
ActiveSheet.Unprotect "pw"
Cells(Target.Row, Target.Column + 10) = Date
Cells(Target.Row, Target.Column + 11) = Environ("username")
ActiveSheet.Protect "pw"
End If
End Sub
Würde mich freuen, wenn mir hier in diesem Fall jemand helfen kann.
Vielen Dank im Voraus.
André
Anzeige