Laufzeitfehler 1004 bei Office2010
Nora
irgendwie werde ich nicht fündig im Internet.
Ich habe ein Dokument, welches ich mit einem Blattschutz versehen habe ausser ein paar spezielle Zellen, die gefüllt werden müssen.
Als ich noch Office 2003 habe, mit dem ich das auch erstellt habe, funktionierte alles.
Nun habe ich Office 2010 und auf einmal kommt der Laufzeitfehler 1004 Anwendungs- oder objektorientierter Fehler.
Private Sub Worksheet_change(ByVal Target As Range)
If Not Intersect(Target, Range("D108:F108")) Is Nothing Then
Call downPM1("1")
End if
End Sub
Sub downPM1(Text)Dim i As Integer, j As Integer
Dim MTBx As Double, MTTx As Double
Dim replace As String, replType As String, replEQ As String, downName As String
Dim numberDowns As Double, numberReplDowns As Double
Dim downtime As Double
j = Text
'alle Variablen holen
replace = Cells(108, 4)
replType = Cells(108, 5)
replEQ = Cells(108, 6)
downName = Cells(102, 4)
'das eigentliche Event berechnen
If (IsEmpty(Cells(105, 4)) = True And IsEmpty(Cells(106, 4)) = True) Then
Worksheets("Performance").Cells(109, 6) = ""
Cells(107, 4) = ""
Else
MTBx = Cells(103, 4)
MTTx = Cells(105, 4) + Cells(106, 4)
Cells(107, 4) = MTTx
If replace = "no" Then
Cells(109, 6) = MTTx / (MTTx + MTBx)
Cells(108, 6).Interior.ColorIndex = 4
Cells(108, 5).Font.ColorIndex = 4
Cells(108, 6).Font.ColorIndex = 4
'Cells(108, 5) = ""
'Cells(108, 6) = ""
End If
Bei der Fettgrdurkcten Zeile werde ich hinverwiesen.
Wenn ich den Blattschutz aufhebe, funktioniert alles.
Aber wenn ich den Blattschutz drin habe, der nicht die oben genannte Zelle betrifft funktioniert es nicht.
Den Blattschutz habe ich so ausgeführt, dass in den nicht zu schützenden Zelle kein Häclchen bei "gesperrt" und "ausgeblendet" ist und dann beim "Blatt Schützen" ich nur "Nicht gesperrte Zellen auswählen" markiert habe.
Verwunderlich ist, dass es vorher funktionierte.
Über Unterstützung würde ich mich sehr freuen.
Lieben gruss
Nora