Skalierung x-Achse

Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target.Address
Case "$AA$34", "$AB$34"
With Charts("Diagramm 6").Axes(xlValue)
.MinimumScale = Range("AA34")
.MaximumScale = Range("AB34")
End With
End Select
End Sub