Thema Datum  Von Nutzer Rating
Antwort
Rot Einfügen von Diagramm stürzt ab
 17.07.2019 10:34:58 dergroddi
NotSolved
17.07.2019 10:44:00 X-Post
NotSolved

Ansicht des Beitrags:
Von:
dergroddi		 Datum:
17.07.2019 10:34:58		 Views:
983		 Rating:
     
Antwort:
  Ja
Thema:
Einfügen von Diagramm stürzt ab

Hallo zusammen,

aktuell versuche ich mich an der automatischen Erstellung von Diagrammen. Leider stürzt Excel dabei reproduzierbar ab und ich verstehe die Fehlerursache nicht.

Ablauf: Hauptprogramm geht durch die vorhandenen Sheets, aktiviert den ersten, erzeugt aus einer Spalte ein Diagramm, fragt den Benutzer nach einem Wert, kopiert ein paar Zeilen in einen neuen Sheet, aktiviert diesen und löscht dann den alten.

Mein Code:

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Sub DiagrammErzeugen(diagramColumn As String, diagramLastRow As Integer, aktuelleProbe As String)
        
    Dim oChartObj As ChartObject
      
    ' Sicherheitshalber vorhandene Charts löschen
    For Each oChartObj In Sheets(aktuelleProbe).ChartObjects
       oChartObj.Delete
    Next
 
    ' Nochmal leer initialisieren    
    Set oChartObj = Nothing
      
    ' und zur Sicherheit auf den Sheet wechseln, auf den das Diagramm soll
    Sheets(aktuelleProbe).Activate
     
    ' ################################
    ' an dieser Stelle stürzt Excel ab
    ' entweder beim ersten Durchlauf (mit Application.EnableEvents = True)
    ' oder beim zweiten Durchlauf (wenn Application.EnableEvents = False)
    '
    Set oChartObj = Sheets(aktuelleProbe).ChartObjects.Add(Top:=100, Left:=100, Width:=1200, Height:=600)
    ' ################################
 
    oChartObj.Chart.SetSourceData Sheets(aktuelleProbe).Range(diagramColumn & "1:" & diagramColumn & diagramLastRow)
    oChartObj.Chart.ChartType = xlXYScatterLines
    oChartObj.Chart.HasTitle = True
    oChartObj.Chart.ChartTitle.Select
    oChartObj.Chart.ChartTitle.Text = aktuelleProbe
    oChartObj.Chart.HasLegend = False
    oChartObj.Chart.Axes(xlCategory).MajorUnit = 2
    oChartObj.Chart.Axes(xlCategory).HasMajorGridlines = True
 
End Sub

Muss ich hier noch irgendwie "aufräumen" oder sowas? Oder verweise ich nicht ganz korrekt auf mein ChartObject, weil ich ständig zwischen verschiedenen Sheets hin- und herspringe?

Danke für Hinweise

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Einfügen von Diagramm stürzt ab
 17.07.2019 10:34:58 dergroddi
NotSolved
17.07.2019 10:44:00 X-Post
NotSolved