Hallo Experten,
ich habe eine Messwerttabelle die gefüllt wird. Nach jeder Eingabe eines Wertes soll die jeweilige Zelle gesperrt werden.
Als Neuling im VBA-Geschäft habe ich im Internet recherchiert und folgenden Code gefunden.
Private Sub Worksheet_Change(ByVal Target As Range)
'################################################################################
'Code sperrt die Zelle in die eine Eingabe gemacht wurde
Dim rngCell As RangeSet Target = Intersect(Target, Range("C14:T85"))
If Target Is Nothing Then Exit SubMe.Unprotect ("test")For Each rngCell In Target
rngCell.Locked = rngCell <> "" 'an dieser Zeile bleibt er hängen!
NextMe.Protect ("test")
End Sub
Habe diesen Code nur mit dem entsprechenden Zellbereich erweitert, welcher für mich relevant ist. Der Code funktioniert auch soweit, nur bei verbundenen Zellen (Zellen aus mehreren Einzelzellen) bekomme ich einen Fehlermeldung „Laufzeitfehler 1004; Die Locked-Eigenschaft des Range-Objektes kann nicht festgelegt werden.“
Habe im Internet schon nach einer Lösungsmöglichkeit gesucht, diesen Fehler zu beseitigen aber habe nichts gefunden.
Ich wäre euch sehr dankbar, wenn mir jemand sagen könnte, was ich in diesem Code ändern müsste, damit er mir auch verbundene Zellen sperrt.
Vielen Dank schon mal für eure Hilfe.
ich habe eine Messwerttabelle die gefüllt wird. Nach jeder Eingabe eines Wertes soll die jeweilige Zelle gesperrt werden.
Als Neuling im VBA-Geschäft habe ich im Internet recherchiert und folgenden Code gefunden.
Private Sub Worksheet_Change(ByVal Target As Range)
'################################################################################
'Code sperrt die Zelle in die eine Eingabe gemacht wurde
Dim rngCell As RangeSet Target = Intersect(Target, Range("C14:T85"))
If Target Is Nothing Then Exit SubMe.Unprotect ("test")For Each rngCell In Target
rngCell.Locked = rngCell <> "" 'an dieser Zeile bleibt er hängen!
NextMe.Protect ("test")
End Sub
Habe diesen Code nur mit dem entsprechenden Zellbereich erweitert, welcher für mich relevant ist. Der Code funktioniert auch soweit, nur bei verbundenen Zellen (Zellen aus mehreren Einzelzellen) bekomme ich einen Fehlermeldung „Laufzeitfehler 1004; Die Locked-Eigenschaft des Range-Objektes kann nicht festgelegt werden.“
Habe im Internet schon nach einer Lösungsmöglichkeit gesucht, diesen Fehler zu beseitigen aber habe nichts gefunden.
Ich wäre euch sehr dankbar, wenn mir jemand sagen könnte, was ich in diesem Code ändern müsste, damit er mir auch verbundene Zellen sperrt.
Vielen Dank schon mal für eure Hilfe.