Sub AchseAnpassen()
With ActiveSheet.ChartObjects(1).Chart
.Axes(xlCategory).MaximumScale = Application.Max(Columns(1))
End With
End Sub
Anzeige
AW: Nur per VBA...
09.02.2016 16:27:13
Jens
Halo besten Dank.
was ist aber wenn die Datensätze für das Diagramm auf einem anderen Tabellenblatt liegen und ich mehrere Diagramme habe?
Wie muss man dann den Code anpassen?
AW: Nur per VBA...
09.02.2016 20:58:01
Beverly
Hi,
dann solltest du mal deine Mappe mit den tatsächlichen Bedingungen hochladen.