heute bräuchte ich bitte weider Euren Rat.
Ziel:
die Min- und Maxwerte als auch die Achsen-Unterteilungen in einem Diagramm sollen immer, abhängig von Versuchswerten berechnet und anschließend aktualisiert werden.
Ich habe eine VBA Code, bei dem das nur nach "händischer" Eingabe der Max- u. Minwerte funktioniert.
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
Hat jemand eine Idee wie ich den ändern muss, dass das auch automatisch funktioniert. Eine Bsp-Datei habe ich unten beigefügt.Tausend Dank und Gruß
Thomas
https://www.herber.de/bbs/user/146121.xlsx