"Objekt erforderlich" -- Bei jedem 2. Run
02.03.2007 10:05:50
Steve
Hier der Code:
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
Wenn ich den Code einmal ausführe, kein Problem. Ein weiteres mal darauf erhalte ich die FM "Objekt erforderlich" und die Debug-Prozedur markiert folgende Stelle:
objStartzelle.Offset(j - 1, 0) = astrMandates(i)