ist es denn möglich aus einem Diagramm das Minimum oder Maximum einer Achse (Achsenoptionen - Grenzen - Minimum/Maximum) in eine Zelle auslesen zu lassen?
LG Jo
Function DiaAchsenMax(rng as Range) as Double
DiaAchsenMax = ActiveSheet.ChartObjects(1).Chart.Axes(xlValue).MaximumScale
End function
Function DiaAchsenMin(rng as Range) as Double
DiaAchsenMin = ActiveSheet.ChartObjects(1).Chart.Axes(xlValue).MinimumScale
End function
in der Zelle dann:
=DiaAchsenMax(A1:A10)
beim Zellbereich solltest du auf Zellen der Werttabelle des Diagramms verweisen.Function DiaAchsenMax() as Double
Application.Volatile
DiaAchsenMax = ActiveSheet.ChartObjects(1).Chart.Axes(xlValue).MaximumScale
End function