错误1004“应用程序定义或对象定义的错误”

Question

我有一段代码有时会触发VBA错误1004“应用程序定义的错误或对象定义的错误”。代码是：

ToleranzString = "=COUNTA(R[-1]C[3]:R[-1]C[3])"

整个代码是：

 With myArea
            With .Worksheet.Range(.Cells(1, COLIDX_MESSUNG_1), .Cells(1, COLIDX_MESSUNG_1 + noOfVal - 1))
                If .NumberFormat <> Parameter.NumberFormat Then .NumberFormat = Parameter.NumberFormat
            End With

            If .Cells.Item(2, 4) <> 0 Or noOfVal > 0 Then
                ToleranzString = "=COUNTA(R[-1]C[3]:R[-1]C[" & VBA.Format$(POS_TR_DATEN + Me.Datenbereich.Columns.Count) & "])"
            Else
                ToleranzString = "=COUNTA(R[-1]C[3]:R[-1]C[3])"
            End If
           .Cells.Item(2, PosFormelSub1).Formula = ToleranzString

其中myArea是一个Excel.Range对象。

对第二张纸的数据进行第二次评估后，将引发错误。任何人都可以提供有关如何调试此类问题或可能是根本原因的建议。

此致