Office: (Office 2013) Achsengrenzen aus Zelle übernehmen

UDF = UserDefinedFunction

Also eine benutzerdefinierte Funktion, die in [E8] steht:
Code:

Der Code dazu befindet sich in Modul1:
Code:

Teste ein wenig rum.

 

Das ist genau das was ich wollte!! *hands *top

PHP:

         Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B11:C40")) Is Nothing Then
With ActiveSheet.ChartObjects(1).Chart.Axes(xlCategory)
.MinimumScale = Application.Min(Range("B44:C44"))
.MaximumScale = Application.Max(Range("B43:C44"))
End With
End If
End Sub