Hallo,
ich würde gerne ein Diagramm(Punkt(XY)) automatisch mit Anfang und Enddatum skalieren.
Anfangsdatum steht in Berechnungen B2 mit Format Datum Typ *14.03.2012 und ist 01.08.2021
Enddatum steht in Berechnungen B3 mit Format Datum Typ *14.03.2012 und ist 20.08.2021
Die x-Achse des Diagrammes ist auch mit Datum Typ *14.03.2012
Folgender VBA Code:
Sheets("Diagramm1").Select
ActiveChart.Axes(xlCategory).MinimumScale = Sheets("Berechnungen").Range("B2")
Sheets("Umwälzpumpe").Select
ActiveChart.Axes(xlCategory).MaximumScale = Sheets("Berechnungen").Range("B3")
Im Diagramm erhalte ich aber 20.06.4862 bis 20.06.4862.
Jemand eine Idee?
|