ich bekomme einen Fehler "1004" bei der Ausführung des untenstehenden Codes, d.h. der Fehler tritt auf wenn die Zellen gesperrt werden sollen.
Wer weiss Rat?
Gruss Daniel
Sub tt()
Dim rngBereich As Range
Dim rngZelle As Range
Dim lngZeile As Long
lngZeile = Range("A65536").End(xlUp).Row
Set rngBereich = Range(Cells(lngZeile, 1), Cells(lngZeile, 6))
For Each rngZelle In rngBereich
If rngZelle.Value "" Then
Range(rngZelle.Offset(lngZeile, 0), rngZelle.Offset(lngZeile, 5)).Locked = True
Else
Range(rngZelle.Offset(lngZeile, 1), rngZelle.Offset(lngZeile, 5)).Locked = False
End If
Next rngZelle
End Sub