Hallo,
ich bekomme unterschiedlich lange Tabellen und erstelle daraus ein Liniendiagramm. Anschließen teile ich es zur besseren Übersicht in mehrere Einzeldiagramme.
ActiveChart.Axes(xlCategory).MaximumScale = 300
ActiveChart.Axes(xlValue).Select
ActiveChart.ChartArea.Select
Sheets("0-300s").Select
Sheets("0-300s").Copy Before:=Sheets(3)
Sheets("0-300s (2)").Select
Sheets("0-300s (2)").Name = "300-600s"
ActiveChart.ChartArea.Select
ActiveChart.Axes(xlCategory).Select
ActiveChart.Axes(xlCategory).MinimumScale = 300
ActiveChart.Axes(xlCategory).MaximumScale = 600
ActiveChart.ChartArea.Select
Sheets("300-600s").Select
Sheets("300-600s").Copy Before:=Sheets(4)
Sheets("300-600s (2)").Select
Sheets("300-600s (2)").Name = "600-900s"
ActiveChart.ChartArea.Select
ActiveChart.Axes(xlCategory).Select
Ich möchte das falls es die Daten 300-600s u.s.w. nicht gibt, das Diagrammblatt weggelöscht wird. Sind die Daten vorhanden muss natürlich das Diagrammblatt bleiben.
Danke im vorraus
|