hallo fachleute,
ich nutze excel 2003 und möchte in einem diagramm die skalierung der y-achse mittels zellwerten „automatisieren“:
z.B. soll dem maximum der y-achse der zahlenwert aus zelle „A1“ bzw. die y-achsenteilung aus zelle „A2“ verwendet werden.
ich vermute mal, das dies nur per vba möglich ist. da ich damit nicht versiertbin, bin ich an einem entsprechenden vba-code interesiert.
vielen dank im vorraus
paragliders
ich nutze excel 2003 und möchte in einem diagramm die
skalierung der y-achse mittels zellwerten „automatisieren“:
z.B. soll dem maximum der y-achse der zahlenwert aus zelle
„A1“ bzw. die y-achsenteilung aus zelle „A2“ verwendet
werden.
Hi Para,
Alt+F11, links Doppelklick auf den Blattnamen, Code einfügen, Code anpassen, Editor schließen.
Eingaben in D1 verändern automatisch den Minimalwert der x-Achse, Eingaben in D2 den Maximalwert der x-Achse, usw.
Option Explicit
'
Private Sub Worksheet\_Change(ByVal Target As Excel.Range)
If Intersect(Target, Range("D1:smiley:4")) Is Nothing Then Exit Sub
With ActiveSheet.ChartObjects("Diagramm 1").Chart
If Range("D1") "" Then .Axes(xlCategory).MinimumScale = Range("D1")
If Range("D2") "" Then .Axes(xlCategory).MaximumScale = Range("D2")
If Range("D3") "" Then .Axes(xlValue).MinimumScale = Range("D3")
If Range("D4") "" Then .Axes(xlValue).MaximumScale = Range("D4")
End With
End Sub
Gruß
Reinhard