ich möchte eine Funktion wenn man in Spalte C eine Zelle löscht, dann soll in der Mappe geprüft werden, ob es ein Worksheet mit dem Namen "TR (Integer) -7" gibt. Sollte kein Worksheet existieren, dann soll in der Spalte A und B in der entsprechende Zeile die Werte gelöscht werden.
Mein Code sieht so aus, funktioniert aber noch nicht:
If Target.Count = 1 Then
If Target.Column = 3 And Target.Row > 7 Then
TR = Target.Row
If Worksheets("Übersicht").Range("C" & CStr(TR)) = "" Then
For Each Worksheets In Workbook
If Worksheets.Name Worksheets("TR" - 7) Then
Worksheets("Übersicht").Unprotect
Worksheets("Übersicht").Columns("A:B").Locked = False
Worksheets("Übersicht").Range("A" & CStr(TR)) = ""
Worksheets("Übersicht").Range("B" & CStr(TR)) = ""
Worksheets("Übersicht").Columns("A:B").Locked = True
Worksheets("Übersicht").Protect , AllowFiltering:=True, AllowFormattingRows:=True
Hatte jemand eine Idee?Gruß Christoph