Laufzeitfehler '430' bei set range
23.09.2014 15:31:49
BlackDevil
Hallo Zusammen,
ich habe nun den Tag genutzt und mein aktuelles Makro Projekt auf die Verwendung einer UserForm umgebaut. Wie immer wenn man etwas umbaut, stößt man ruck zuck auf Probleme.
Zunächst einmal das Konglomerat an Code:
In DieseArbeitsmappe
Private Sub Workbook_Open()
Modul1.Initialize
End Sub
In Modul1
Public FT1_threshold As Integer
Public FT2_threshold As Integer
Public Type vsModel
ModelName As String
Sensors() As String
End Type
Public Models() As vsModel
Public FilteredModels() As vsModel
Public SensorsTotalNum As Integer
Public SensorsTotalNumPerc As Integer
Public SensorsTotalNumFiltered As Integer
Public chartPLRE As ChartObject
Public chartPLRP As ChartObject
Public chartPLRErange As Range
Public chartPLRPrange As Range
Sub Initialize()
FT1_threshold = 0
FT2_threshold = 0
ClearTreeView
SensorsTotalNum = 0
SensorsTotalNumPerc = 0
SensorsTotalNumFiltered =0
Set chartPLRErange = Worksheets("Report").Range("A17:Y27")
Set chartPLRPrange = Worksheets("Report").Range("A28:Y38")
PrepareGraphics
VS_Report_Form.Show vbModeless
End Sub
Das Problem:Nach dem öffnen des Workbooks und aktivieren der Makros steigt das Programm bei der Zeile "Set chartPLRErange" mit dem folgenden Fehler aus
Laufzeitfehler '430'
Klasse unterstützt keine Automatisierung oder unterstützt erwartete Schnittstelle nicht
Ich weiß nun nur nicht wo das Problem ist (und es lief ja auch mal ...). Hat jemand eine Idee? Das Tabellenblatt "Report" existiert ;)Danke im voraus :)