Intersect Mehrere Zellen überwachen
23.12.2021 14:43:19
Karsten
In einer Tabelle wird bei einer Änderung der Zelle A5 eine neue Zeile eingefügt.
Dann wird in Spalte I (Zelle I6) der bearbeitende User eingetragen.
Nach Änderungen in einer Zeile in Spalte D soll die Zeit und Datum in Spalte G protokolliert werden.
Dann, nach einer Änderung in Spalte N, soll der User mit Zeit und Datum in Spalte P protokolliert werden.
Die Code Schnipsel, die ich mir in den Weiten des Netzes zusammengesucht habe, sagen ja wenn keine Änderung erfolgt dann Exit Sub
So kann ja meine zweite Änderung in der Zeile nie protokolliert werden.
Was muss ich an Stelle von Exit Sub eintragen damit das zweite Intersect auch funktioniert?
Next If fiunktioniert hier nicht,
Private Sub Worksheet_Change(ByVal Target As Range)
Dim FileUsername As String
FileUsername = Environ("UserName")
Cells(Target.Row, "I") = FileUsername
If Intersect(Target, Range("D:D")) Is Nothing Or _
Target.Count > 1 Then Exit Sub
Cells(Target.Row, "G") = Now
Application.EnableEvents = True
If Intersect(Target, Range("N:N")) Is Nothing Or _
Target.Count > 1 Then Exit Sub
Cells(Target.Row, "P") = Now & " " & FileUsername
End Sub
Anzeige