Anbei mein aktueller Code:
Sub Anpassung()
Dim ws As Worksheet, cht As ChartObject
Set ws = ThisWorkbook.Worksheets("Air_24")
For Each cht In ws.ChartObjects
With cht.Chart.Axes(xlCategory, xlPrimary)
.MaximumScale = ActiveSheet.Range("AK18").Value 'Das ist die Zelle, in der das Maximum der x-Achse steht
.MinimumScale = ActiveSheet.Range("AK17").Value 'Das ist die Zelle, in der das Minimum der x-Achse steht
.MajorUnit = ActiveSheet.Range("AK19").Value 'Das ist die Zelle, in der das Hauptintervall der x-Achse steht
End With
Next cht
Set cht = Nothing
Set ws = Nothing
End Sub