Hallo @all,
ich hätte ein kleines Problem, das ich leider nicht Lösen kann. (Trotz tagelanger Recherche)
Es geht hier um diese Funktion.
Ziel: Es gibt vorhandene Diagramme die ich einfach mit neuen Daten füllen möchte.
Was ich mache:
-Ich öffne meine Excel-Datei
-Starte mein Programm. (Alles funktioniert und die Diagramme werden auch mit den neuen Daten gefüllt)
-Starte das Programm erneut (Ich bekomme den Fehler: Laufzeitfehler '1004': Anwendungs- oder objektdefinierter Fehler)
Dabei springt der Debugger auf diese Zeile:
Ich verstehe nicht, wieso es beim ersten Durchgang funktioniert, aber wenn ich es ein zweites mal ausführen möchte mir ein Fehler angezeigt wird.
Vielen Dank im Voraus
ich hätte ein kleines Problem, das ich leider nicht Lösen kann. (Trotz tagelanger Recherche)
Es geht hier um diese Funktion.
Quellcode
- Function diagramm(DiagrammSeite, DatenSeite, seite, variable, variable_2)
- Sheets(DiagrammSeite).Select
- Dim cht As Chart
- Set cht = ActiveChart
- If seite = 1 Then
- cht.SetSourceData Source:=Worksheets(DatenSeite).Range("B" & variable - 1 & ":E" & variable - 1 - variable_2)
- ElseIf seite = 2 Then
- cht.SetSourceData Source:=Worksheets(DatenSeite).Range("H" & variable - 1 & ":K" & variable - 1 - variable_2)
- End If
- End Function
Ziel: Es gibt vorhandene Diagramme die ich einfach mit neuen Daten füllen möchte.
Was ich mache:
-Ich öffne meine Excel-Datei
-Starte mein Programm. (Alles funktioniert und die Diagramme werden auch mit den neuen Daten gefüllt)
-Starte das Programm erneut (Ich bekomme den Fehler: Laufzeitfehler '1004': Anwendungs- oder objektdefinierter Fehler)
Dabei springt der Debugger auf diese Zeile:
Ich verstehe nicht, wieso es beim ersten Durchgang funktioniert, aber wenn ich es ein zweites mal ausführen möchte mir ein Fehler angezeigt wird.
Vielen Dank im Voraus