"Objekt erforderlich" -- Bei jedem 2. Run

Sub Reporting_Invoice3(objStartzelle As Range, strMonat As String, strBerater As String)
Application.ScreenUpdating = False
Dim i As Integer
Dim j As Integer
'Werte einlesen
mstrDB = Range("DB").Value
mstrCube = Range("Cube_CO").Value
mstrBerater = strBerater
'mstrSicht = "Auftrag"
mstrMeasures = "Umsatz"
mstrMonat = strMonat
mstrJahr = Range("Jahr").Value            'Aktuelles Jahr
mstrKunde = Range("C14").Value            'Aktueller Kunde
j = 1
Count = Application.Run("PALO.ECOUNT", mstrDB, "Mandates")
Dim astrMandates() As String
ReDim astrMandates(1 To Count)
'Zellinhalt löschen (nur Spalte)
BereichLoeschen objStartzelle, 3
For i = 1 To Count
astrMandates(i) = Application.Run("PALO.ENAME", mstrDB, "Mandates", i)
If (Application.Run("PALO.DATA", mstrDB, mstrCube, mstrBerater, "Rechnung", mstrKunde, mstrMonat, _
_
_
_
mstrMeasures, astrMandates(i), mstrJahr) > 0) And _
_
(Application.Run("PALO.ELEVEL", mstrDB, "Mandates", astrMandates(i)) = 0) Then
objStartzelle.Offset(j - 1, 0) = astrMandates(i)
objStartzelle.Offset(j - 1, 3) = Application.Run("PALO.DATA", mstrDB, mstrCube, mstrBerater, _
_
_
_
"Rechnung", mstrKunde, mstrMonat, mstrMeasures, astrMandates(i), _
mstrJahr)
j = j + 1
End If
Next
Application.ScreenUpdating = True
End Sub