ich habe folgenden Code.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Bereich As Range
Set Bereich = Intersect(Range("G2:G10000"), Target)
If Not Bereich Is Nothing Then
Application.EnableEvents = False
With Bereich
ActiveSheet.Unprotect
.Offset(0, 1).Value = "nicht relevant"
.Offset(0, 2).Value = "0:30"
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End With
Application.EnableEvents = True
End If
Jetzt möchte ich aber nur dann etwas reinschreiben, wenn in der Zelle in Spalte G ein "nein" eingetagen wurde.
Wer kann mir hier helfen? Im Voraus vielen Dank!
LG Claudia