Laufzeitfehler 1004
10.11.2014 10:20:23
Markus
ich habe folgendes Makro,
dieses vergleicht 2 Werte miteinander und setzt diesen als gegeben.
Private Sub Worksheet_Calculate()
If Range("B9").Value Range("AA4") Then
ActiveSheet.Unprotect Password:="majacz"
If ActiveSheet.Range("AB4").Value = "0" Then
Range("AA4").Value = Range("B9").Value
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingCells:=True, AllowFiltering:=True, Password:="majacz"
Exit Sub
Else
If Range("B9") = "" Then
Range("AA4").Clear
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingCells:=True, AllowFiltering:=True, Password:="majacz"
Exit Sub
Else
MsgBox "Achtung! " _
& vbCrLf & "Bitte folgende Info beachten! " _
& vbCrLf _
& vbCrLf & Worksheets("Test").Range("AB4")
End If
Range("AA4").Value = Range("B9").Value
End If
End If
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingCells:=True, AllowFiltering:=True, Password:="majacz"
Exit Sub
End Sub
Durch diese Makro bekomme ich in einem anderen Sheet bei der Ausführung des Makros einen Laufzeitfehler 1004 "Die Locked-Eigenschaft des Range-Objektes kann nicht festgelegt werden.
an dieser Stelle im Code
Range("B12:D12").Select
Selection.Locked = False
Range("H16").Select
Selection.Locked = False
Woran kann das liegen und was muß ich ändern?
Vielen Dank und Gruß Markus