Hallo liebe Forumsmitlgieder,
ich möchte das Maximum der Bereiche "AK4:AW5" und "AK7:AW7" bestimmen, um das Maximum einer y-Achse zu bestimmen und wollte mit der Cells-Funktion und wenn möglich ohne "Union" arbeiten:
Dim wksT As Worksheet
Set wksT = Worksheets(4)
wksT.ChartObjects(1).Chart.Axes(xlValue).MaximumScale = Application.WorksheetFunction.Max( _
wksT.Range( _
wksT.Range(wksT.Cells(4, 37), wksT.Cells(5, 49)).Adress & "," & _
wksT.Range(wksT.Cells(7, 37), wksT.Cells(7, 49)).Adress))
Das führt zu: "Objekt unterstützt diese Eigenschaft oder Methode nicht"
mit der Angabe eines zusammenhängenden Bereichs hat es noch geklappt:
.Axes(xlValue).MaximumScale = Application.WorksheetFunction.Min(wksT.Range(wksT.Cells(5, 37), _
wksT.Cells(7, 49)))
Was muss ich ändern, damit die Bestimmung des Maximums funktioniert?
Viele Dank im Voraus und viele Grüße
Max