Sub test()
MsgBox Cells(1, 1)
End Sub
Sub Makro2()
ActiveSheet.ChartObjects("Diagramm 2").Activate
ActiveChart.Axes(xlCategory).Select
With ActiveChart.Axes(xlCategory)
.MinimumScale = Cells(1, 1)
.MaximumScale = Cells(1, 2)
.MinorUnitIsAuto = True
.MajorUnitIsAuto = True
.Crosses = xlAutomatic
.ReversePlotOrder = False
.ScaleType = xlLinear
.DisplayUnit = xlNone
End With
End Sub
Sub loesung()
Dim a As Single
'dein code
a = Cells(1, 1).Value
'dein code
.MinimumScale = a
'dein code
End Sub