Sub achsen_anpassen()
' Dim diascaleprim1 As String
' Dim diascaleprim2 As String
diascaleprim1 = ActiveSheet.Charts("Diagramm 1").Axes(xlValue).MaximumScale
diascaleprim2 = ActiveSheet.Charts("Diagramm 2").Axes(xlValue).MaximumScale
If diascaleprim1 > diascaleprim2 Then
ActiveSheet.ChartObjects("Diagramm 2").Activate
ActiveChart.Axes(xlValue).Select
With ActiveChart.Axes(xlValue)
.MinimumScale = 0
.MaximumScaleIsAuto = diascaleprim1
.MinorUnitIsAuto = True
.MajorUnitIsAuto = True
.Crosses = xlAutomatic
.ReversePlotOrder = False
.ScaleType = xlLinear
.DisplayUnit = xlNone
End With
Else
End If
End Sub
Bin um jeglichen Input dankbar.
Greets, Rudi