Laufzeitfehler 91

  • VB6

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von Mad Andy.

    Laufzeitfehler 91

    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

    Visual Basic-Quellcode

    1. Private Sub Command1_Click()
    2. Dim oChart As Chart
    3. Dim oWks As Worksheet
    4. Dim arrX, arrY
    5. Dim i As Long
    6. 'Daten
    7. arrx = Array(2000, 2001, 2002, 2003, 2004)
    8. arry = Array(10, 11, 9, 12, 11)
    9. Set oWks = ActiveSheet
    10. For i = 0 To 4 'Worksheet füllen
    11. 'oWks.Cells(i+1,1) löst LZF 91 aus
    12. oWks.Cells(i + 1, 1) = arrx(i)
    13. oWks.Cells(i + 1, 2) = arry(i)
    14. Next i
    15. 'Diagramm hinzufügen
    16. Set oChart = Charts.Add
    17. With oChart
    18. .ChartType = xlXYScatter
    19. .SetSourceData oWks.Range("A1:B5"), xlColumns
    20. .Location xlLocationAsObject, oWks.Name
    21. End With
    22. Set oChart = Nothing 'Speicher freigeben
    23. End Sub


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

    Edit by Agent: VB-Tag eingefügt

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Agent“ ()