ich hab ein Problem, daß mich zu Euch treibt, ich hoffe jemand kann mir sagen, was mein Projekt zum streiken bringt:
Ich speichere mir in einer Exceltabelle Range-Adressen in Stringformat und das dazugehörige Worksheet. In einem anderen Makro lese ich diese aus und erstelle mit Hilfe von Formeln usw. Charts, Listen, Pivots, Links etc.
Die einzelnen Datenreihen der Exceltabelle mit den Rangeadressen lese ich in ein Objekt ein, und erhalte die Werte mittels Get Properties in der Zielprozedur. Aus der Rangeadresse erzeuge ich in diesem Objekt ein Rangeobjekt und gebe dieses über die Get-Methode wieder. Läuft soweit problemlos, allerdings ist jetzt zum ersten Mal der Fall aufgetaucht, daß der Range aus nicht unmittelbar zusammengehörigen Zellen besteht.
Das Problem ist folgendes: Der Aufruf der GetRange-Methode liefert einen Laufzeitfehler ("Anwendungs- bzw. objektdefinierter Fehler (1004)"). Im Lokalfenster steht allerdings ein vollkommen richtig instanziertes RangeObjekt und das beste: klicke ich jetzt wieder F5 dann läuft alles problemlos und lückenlos weiter - bis halt der nexte multiarea-range auftaucht, wieder fehlermeldung, ich klicke debuggen und gleich wieder F5 und auch die angezeigt Fehlerzeile wird wieder fehlerfrei ausgeführt.Hat jemand ne Ahnung wie ich diese Fehlermeldung loskriege?
Wäre euch für Eure Hilfe echt dankbar.
Gruß Tom
Quellcodeauszug:
Klassenmodul Datenobjekt
...
Public Property Get preChartRange() As Range
If Trim(m_cOData("PRECHARTED.RESULT") = "") Then
Set preChartRange = Nothing
Else
Set preChartRange = GO_Global.CurrMonit.Worksheets(m_cOData("PRECHARTED.SHEET")).Range(m_cOData("PRECHARTED.RESULT"))
End If
If (preChartRange Is Nothing) Then MsgBox "PRECHART ist NULL!!!"
End Property
...
Modul Datenaufbereitung
...
For LOOPi = 1 to oAssess.preChartRange.Columns.Count
...
Next LOOPi
...