Laufzeitfehler 91

25/02/2008 - 11:51 von Jürgen Schmitt | Report spam
Hallo,
weiss nicht, was ich hier falsch mache.
Möchte ein Diagramm auf eine Form zeichnen lassen.

Projektverweise:
Microsoft Graph 11.0 Object Library
Microsoft Excel 11.0 Object Library
MSGraphCtl Type Library
ExcelCtl Type Library

Komponenten: (Einfügbare Objekte)
Microsoft Excel Diagramm
Microsoft Graph Diagramm



Private Sub Command1_Click()
Dim oChart As Chart
Dim oWks As Worksheet
Dim arrX, arrY
Dim i As Long

'Daten
arrX = Array(2000, 2001, 2002, 2003, 2004)
arrY = Array(10, 11, 9, 12, 11)

Set oWks = ActiveSheet
For i = 0 To UBound(arrX) 'Worksheet füllen
oWks.Cells(i + 1, 1) = arrX(i) 'oWks.Cells(i+1,1) löst LZF 91 aus

oWks.Cells(i + 1, 2) = arrY(i)
Next i

'Diagramm hinzufügen
Set oChart = Charts.Add
With oChart
.ChartType = xlXYScatter
.SetSourceData oWks.Range("A1:B5"), xlColumns
.Location xlLocationAsObject, oWks.Name
End With
Set oChart = Nothing 'Speicher freigeben
End Sub

Fehlt noch ein Verweis/Komponente ??
Weshalb LFZ 91. Das Objekt oWks ist doch vorhanden.
Vielen Dank
 

Lesen sie die antworten

#1 Matthias Hübner
25/02/2008 - 12:26 | Warnen spam
Salut,

Jürgen Schmitt wrote:

Hallo,
weiss nicht, was ich hier falsch mache.
Möchte ein Diagramm auf eine Form zeichnen lassen.

Projektverweise:
Microsoft Graph 11.0 Object Library
Microsoft Excel 11.0 Object Library
MSGraphCtl Type Library
ExcelCtl Type Library

Komponenten: (Einfügbare Objekte)
Microsoft Excel Diagramm
Microsoft Graph Diagramm



Private Sub Command1_Click()
Dim oChart As Chart
Dim oWks As Worksheet
Dim arrX, arrY
Dim i As Long

'Daten
arrX = Array(2000, 2001, 2002, 2003, 2004)
arrY = Array(10, 11, 9, 12, 11)

Set oWks = ActiveSheet
For i = 0 To UBound(arrX) 'Worksheet füllen
oWks.Cells(i + 1, 1) = arrX(i) 'oWks.Cells(i+1,1) löst LZF 91 aus



Würde das mal mit:

For i = LBound(arrX) To UBound(arrX)

versuchen.

HTH
Matthias

oWks.Cells(i + 1, 2) = arrY(i)
Next i

'Diagramm hinzufügen
Set oChart = Charts.Add
With oChart
.ChartType = xlXYScatter
.SetSourceData oWks.Range("A1:B5"), xlColumns
.Location xlLocationAsObject, oWks.Name
End With
Set oChart = Nothing 'Speicher freigeben
End Sub

Fehlt noch ein Verweis/Komponente ??
Weshalb LFZ 91. Das Objekt oWks ist doch vorhanden.
Vielen Dank



Grüße

Ähnliche fragen