Min-Max Werte Achse nach Berechnung

Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target.Cells(1).Address
' Eingabe erfolgt in L7 oder AF7
Case "$K$21", "$K$22", "$k$23", "$k$24"
' Bedingung: D2 ist größer oder gleich C2
If Range("k21") >= Range("k22") Then
' "Diagramm 1" wird bearbeitet
With Worksheets("Tabelle2").ChartObjects("Diagramm 1").Chart
' Y-Achse Max u. Minimum
.Axes(xlValue).MaximumScale = Range("k21")
.Axes(xlValue).MinimumScale = Range("k22")
.Axes(xlValue).MajorUnit = Range("k23")
.Axes(xlValue).MinorUnit = Range("k24")
End With
End If
End Select
End Sub