Private Sub Worksheet_Change
Claudia
brauche noch einmal Eure Hilfe! Ich nutze folgenden Code.
Wie müsste ich den Code ändern, wenn die Änderungen nicht in dem aktiven Blatt sondern im Reiter mit dem Namen "Test" der gleichen Datei erfolgen müsste. Geht das übergreifend?
Vielen DAnk!
LG
Claudia
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Bereich As Range
Set Bereich = Intersect(Range("e5:e1000"), Target)
If Not Bereich Is Nothing Then
Application.EnableEvents = False
With Bereich
ActiveSheet.Unprotect
.Offset(0, 3).Value = "0:30"
.Offset(0, 5).Value = "7:36"
.Offset(0, 6).Value = "0:00"
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End With
Application.EnableEvents = True
End If
End Sub
Anzeige