Laufzeitfehler '1004' beim erstellen von Diagramme
30.04.2019 21:16:21
Diagramme
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
Im folgenden befindet sich der Code vom kompletten Skript
Option Explicit
'Diagrammformatierungseinstellungen
Sub DiagrammTYPI()
'Befehl: falls ein Laufzeitfehler oder ein Syntaxfehler bei Codierung auftritt
On Error GoTo Fehlerverarbeitung
'Variable für das Diagramm definieren
Dim MeinDiagramm As Chart
'Variable für den Rahmen definieren
Dim Rahmen As ChartObject
'Rahmen erzeugen
Set Rahmen = ThisWorkbook.Worksheets("Typ I").ChartObjects.Add(0, 100, 450, 340)
'Diagramm dem Rahmen zuweisen
Set MeinDiagramm = Rahmen.Chart
'Werte aus dem Tabellenblatt in das Diagramm einlesen
MeinDiagramm.SetSourceData Worksheets("Flächendiagrammtabelle").Range("A27:J32")
'Diagramm bearbeiten: Diagrammtyp anpassen
MeinDiagramm.ChartType = xlSurface
'Titel ändern
MeinDiagramm.HasTitle = True
MeinDiagramm.ChartTitle.Text = "3D Flächendiagramm"
'Achsenbeschriftung für die X-Achse
With MeinDiagramm.Axes(xlCategory)
.HasTitle = True
.AxisTitle.Text = "Raumtiefe [cm]"
End With
'Achsenbeschriftung für die Y-Achse
With MeinDiagramm.Axes(xlValue)
.MinimumScale = 0
End With
'Achsenbeschriftung für die Z-Achse
With MeinDiagramm.Axes(xlSeries)
.HasTitle = True
.AxisTitle.Text = "Raumbreite [cm]"
End With
Exit Sub
Fehlerverarbeitung:
'Programm wird bei einem Fehler beendet
MsgBox "Ein Fehler ist in der Codierung aufgetreten. Programm beenden"
End Sub