Hallo,
ich habe es auch mit Hilfe dieses Formus geschafft, in einer Datei mit unterschiedlich vielen Daten verschiedene Diagramme einzufügen.
Hierzu gibt es eine Matrix mit Daten auf deren Basis dann die Diagramme erstellt werden:
Matrix: Spalte A = Datum
Spalte B = Nummer
Spalte C = Betrag 1
Spalte D = Betrag 2
Die Spalten B bis C wiederholen sich ggf. mehrmals, die Spalte A wird bei jedem erstellten Diagramm als X-Achse verwendet.
Die entsprechenden Diagramme werden dann auf einem anderen Tabellenblatt jeweils untereinander dargestellt.
Mein Makro-Teil:
Set objChart = Application.Charts.Add
With objChart
.ChartType = xlLineMarkers
.SetSourceData Source:=rngData, PlotBy:=xlColumns
.HasTitle = True
.HasLegend = False
.Axes(xlCategory).TickLabels.NumberFormat = "m/yy"
.Axes(xlValue).TickLabels.NumberFormat = "#,###,"
.ChartTitle.Text = "Verlauf für Kunde"
.Location Where:=xlLocationAsObject, Name:=wksErg.Name
End With
Set objChartObj = wksErg.ChartObjects( _
wksErg.ChartObjects.Count)
With objChartObj
.Left = 14
.Top = 222 + (iDiagramm * 274 - 274)
.Width = 530.5
.Height = 270
End With
Soweit - so gut. Allerdings kommt es vor, dass die Skalierung der X-Achse der Diagramme unterschiedlich ist und dann manche Monate 2 oder sogar 3 Mal angezeigt werden. Das passiert manchmal sogar, dass beim 1. Diagramm die Skalierung falsch ist, bei den folgenden aber korrekt.
Bei der Skalierung muss richtig eingestellt sein:
Hauptintervall: Tage
Grundintervall: 1 Monat
Hilfsintervall: 1 Monat
Kann ich diese Einstellung über das Makro mitgeben?
Vielen Dank für Eure Hilfe