Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1828to1832
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Min-Max Werte Achse nach Berechnung

Min-Max Werte Achse nach Berechnung
10.05.2021 10:16:37
Thomas
Liebe Excel-Gemeinde,
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

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Korrektur Skalierung y-Achse
10.05.2021 12:05:33
Thomas
Liebe Excelgemeinde,
hier eine Korrektur einschließlich Bsp-Datei

Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target.Cells(1).Address
' Eingabe erfolgt in L7 oder AF7
Case "$C$2", "$D$2", "$C$5", "$D$5"
' Bedingung: D2 ist größer oder gleich C2
If Range("D2") >= Range("C2") Then
' "Diagramm 1" wird bearbeitet
With Worksheets("Tabelle1").ChartObjects("Diagramm 1").Chart
' Y-Achse Max u. Minimum
.Axes(xlValue).MaximumScale = Range("D2")
.Axes(xlValue).MinimumScale = Range("C2")
.Axes(xlValue).MajorUnit = Range("C5")
.Axes(xlValue).MinorUnit = Range("D5")
End With
End If
End Select
End Sub
https://www.herber.de/bbs/user/146123.xlsm
Tausend Dank
Gruß Thomas
Anzeige
AW: Korrektur Skalierung y-Achse
10.05.2021 14:01:01
Beverly
Hi Thomas,
überwache nicht die Zellen mit den Formelberechnungen sondern die Zellen, in die du die X/Y-Werte einträgst:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target.Cells(1), Range("B8:E9")) Is Nothing Then
' Bedingung: D2 ist größer oder gleich C2
If Range("D2") >= Range("C2") Then
' "Diagramm 1" wird bearbeitet
With Worksheets("Tabelle1").ChartObjects("Diagramm 1").Chart
' Y-Achse Max u. Minimum
.Axes(xlValue).MaximumScale = Range("D2")
.Axes(xlValue).MinimumScale = Range("C2")
.Axes(xlValue).MajorUnit = Range("C5")
.Axes(xlValue).MinorUnit = Range("D5")
End With
End If
End If
End Sub

GrußformelBeverly's Excel - Inn
Anzeige
AW: Korrektur Skalierung y-Achse
10.05.2021 19:35:42
Thomas
Hallo Karin,
tausend Dank. Funktioniert.
Gruß Thomas
wenn gelöst, nicht mehr offen. o.w.T
10.05.2021 21:25:10
Werner

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige