ich würde gerne den folgenden funktionierenden VBA-Code über eine Schleife und Select Case (?) verschlanken, komme aber nicht ans Ziel.
Vielen Dank für jegliche Hilfe.
Gruß Holger
Sub Skalierung_Anpassen()
Dim chObj As ChartObject
Dim ch As Chart
Dim ax As Axis
Set chObj = Tabelle1.ChartObjects("a")
Set ax = chObj.Chart.Axes(xlValue, xlSecondary)
ax.MaximumScale = Range("ab453").Value
ax.MinimumScale = Range("ab455").Value
ax.MajorUnit = Range("ab457").Value
Set chObj = Tabelle1.ChartObjects("b")
Set ax = chObj.Chart.Axes(xlValue, xlSecondary)
ax.MaximumScale = Range("ab453").Value
ax.MinimumScale = Range("ab455").Value
ax.MajorUnit = Range("ab457").Value
End Sub