=WENN(ISTFEHLER(SVERWEIS(A6;$W$64:$X$81;2;0));"";SVERWEIS(A6;$W$64:$X$81;2;0))
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i As Long
If Not Intersect(Target, Range("A6:o35")) Is Nothing Then
Application.EnableEvents = False
For i = 1 To 15
If Cells(Target.Row, i) "" Then Cells(Target.Row, 12).Select
Next i
Application.EnableEvents = True
End If
End Sub
Sub Blattschutz()
Dim i As Integer
ActiveSheet.Unprotect
For i = 6 To 35
'----hinter or zählt ob Eintragung in L einmal in SpalteX vorkommt
If Cells(i, 1).Value = "" Or WorksheetFunction.CountIf(Range("X64:X81"), Cells(i, 12). _
Value) = 1 Then
Range("A" & i & ":P" & i).Locked = True
End If
Next
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
Sub Blattschutz()
Dim i As Integer
ActiveSheet.Unprotect ' Password:="woody-6962"
For i = 6 To 35
'----hinter or zählt ob Eintragung in L einmal in SpalteX vorkommt
If Cells(i, 1).Value = "" Or WorksheetFunction.CountIf(Range("X64:X81"), Cells(i, 12). _
Value) = 1 Then
Range("A" & i & ":O" & i).Locked = True
End If
Next
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
Range("A" & i & ":O" & i).Locked = False