Also wie gesagt, in Spalte A wird ab Zeile 2 ein Barcode eingegeben, aus diesem generiert sich mittels INDEX/VERGLEICH ein Profil in Spalte B (Profil 1= eine Seriennummer; Profil 2 = 2 Seriennummern) - Spalte B ist schreibgeschützt. Steht in Spalte B "Profil 1" soll Spalte D gesperrt bleiben, steht dort "Profil 2" soll die Eingabe in Spalte D in der gleichen Zeile freigegeben werden.
Ich habe deinen Code 1 zu 1 eingetragen, daher wollte ich wissen, was die einzelnen Angaben bedeuten, falls ich hier noch etwas ändern müsste.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 1 Then Exit Sub
If Target.Count > 1 Then
MsgBox "Mehrfachauswahl ist nicht zulässig."
Application.EnableEvents = False
Application.Undo
Application.EnableEvents = True
Exit Sub
End If
If Target.Offset(0, 1).Value = "Profil 2" Then
Target.Offset(0, 3).Locked = False
Else
Target.Offset(0, 3).Locked = True
End If
End Sub
Trage ich in Spalte A einen Barcode ein, welche "Profil 2" generiert, kommt: Laufzeitfehler '1004': Die Locked-Eigenschaft des Range-Objektes kann nicht festgelegt werden.
Danke das du dich dem Thema so annimmst.
|