ich habe ein Problem welches ich noch nicht ganz nachvollziehen kann:
Ich lasse eine Excel Diagramm aus drei Reihen erstellen, wobei ich die Linienstärke einstelle und einen Achsenbezeichnung hinzufüge.
Jetzt das Problem:
Manchmal funktioniert das Skript und manchmal nicht, ich verstehe nur nicht warum das so ist.
Sub auto()
'bestehenedes Diagramm löschen mit vorheriger Abfrage ob es existiert
For i = 1 To Worksheets.Count
If Sheets(i).Name = "Ergebnis" Then
Application.DisplayAlerts = False
Charts("Ergebnis").Delete
Application.DisplayAlerts = True
End If
Next
'neues Diagramm hinzufügen
Charts.Add
ActiveChart.ChartType = xlXYScatterSmoothNoMarkers
ActiveChart.SeriesCollection(1).Values = "='Auswahl_Ergebnis'!$H$3:$H$626"
ActiveChart.SeriesCollection(1).Name = "='Auswahl_Ergebnis'!C3"
ActiveChart.SeriesCollection(1).Border.Weight = 3
ActiveChart.SeriesCollection(2).Values = "='Auswahl_Ergebnis'!$H$627:$H$1250"
ActiveChart.SeriesCollection(2).Name = "='Auswahl_Ergebnis'!$C$627"
ActiveChart.SeriesCollection(2).Border.Weight = 3
ActiveChart.SeriesCollection(3).Values = "='Auswahl_Ergebnis'!$H$1250:$H$1874"
ActiveChart.SeriesCollection(3).Name = "='Auswahl_Ergebnis'!$C$1250"
ActiveChart.SeriesCollection(3).Border.Weight = 3
ActiveChart.Location Where:=xlLocationAsNewSheet, Name:="Ergebnis"
ActiveChart.Axes(xlCategory).HasTitle = True
ActiveChart.Axes(xlCategory).AxisTitle.Text = "Date"
ActiveChart.Axes(xlValue).HasTitle = True
ActiveChart.Axes(xlValue).AxisTitle.Text = "Auto"
End Sub
Jetzt meine Fragen:1. Wieso funktioniert das Skript manchmal nicht? Excel gibt mir dann den Laufzeitfehler ' _ 1004' aus, in dieser Zeile:
ActiveChart.SeriesCollection(1).Values = "='Auswahl_Ergebnis'!$H$3:$H$626"
2. Wieso entspricht die Linienstärke des Diagramms nicht meinem eingestellten Wert von 3?
3. Wie kann ich die Schriftgröße im gesamten Diagramm auf 16 setzen?
Danke für eure Hilfe!
Axel
PS.: Der Excel interne Rekorder zeichnet keine händisch durchgeführten Änderungen auf...