Laufzeitfehler '1004' beim erstellen von Diagrammen

  • Excel

    Laufzeitfehler '1004' beim erstellen von Diagrammen

    Hallo,

    bis gestern hat alles optimal funktioniert und beim austesten ist mir irgendein Fehler unterlaufen.

    Ich habe wirklich alles versucht den Fehler zu beheben, jedoch erfolglos.

    Auch wenn ich den Code bearbeite und veränder wird mir der Fehler weiterhin angezeigt.

    Ich habe den Code auch schon in einem Komplett neuen leeren Arbeitsblatt eingefügt, um zu testen ob es eventuell einen Fehler bei meiner Arbeitsmappe ist, jedoch funktioniert er auch nicht bei einer kompletten leeren Arbeitsmappe

    Ich hoffe Ihr könnt mir helfen

    der Fehler befindet sich in der Zeile

    Visual Basic-Quellcode

    1. ​Set Rahmen = ThisWorkbook.Worksheets("Typ I").ChartObjects.Add(0, 100, 450, 340)



    Im folgenden befindet sich der Code vom kompletten Skript


    Visual Basic-Quellcode

    1. ​Option Explicit
    3. 'Diagrammformatierungseinstellungen
    5. Sub DiagrammTYPI()
    7. 'Befehl: falls ein Laufzeitfehler oder ein Syntaxfehler bei Codierung auftritt
    8. On Error GoTo Fehlerverarbeitung
    10. 'Variable für das Diagramm definieren
    11. Dim MeinDiagramm As Chart
    13. 'Variable für den Rahmen definieren
    14. Dim Rahmen As ChartObject
    16. 'Rahmen erzeugen
    17. Set Rahmen = ThisWorkbook.Worksheets("Typ I").ChartObjects.Add(0, 100, 450, 340)
    19. 'Diagramm dem Rahmen zuweisen
    20. Set MeinDiagramm = Rahmen.Chart
    22. 'Werte aus dem Tabellenblatt in das Diagramm einlesen
    23. MeinDiagramm.SetSourceData Worksheets("Flächendiagrammtabelle").Range("A27:J32")
    25. 'Diagramm bearbeiten: Diagrammtyp anpassen
    26. MeinDiagramm.ChartType = xlSurface
    28. 'Titel ändern
    29. MeinDiagramm.HasTitle = True
    30. MeinDiagramm.ChartTitle.Text = "3D Flächendiagramm"
    32. 'Achsenbeschriftung für die X-Achse
    33. With MeinDiagramm.Axes(xlCategory)
    34. .HasTitle = True
    35. .AxisTitle.Text = "Raumtiefe [cm]"
    36. End With
    38. 'Achsenbeschriftung für die Y-Achse
    39. With MeinDiagramm.Axes(xlValue)
    40. .MinimumScale = 0
    41. End With
    43. 'Achsenbeschriftung für die Z-Achse
    44. With MeinDiagramm.Axes(xlSeries)
    45. .HasTitle = True
    46. .AxisTitle.Text = "Raumbreite [cm]"
    47. End With
    50. Exit Sub
    52. Fehlerverarbeitung:
    54. 'Programm wird bei einem Fehler beendet
    56. MsgBox "Ein Fehler ist in der Codierung aufgetreten. Programm beenden"
    58. End Sub

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „y.p“ ()

Facebook
Telefonspende