Diagramm: Achsengrenzen variabel ohne VBA?

Jens · 2007-08-06T00:28:50+00:00

Hallo liebe Excel-Profis! Ich suche nach einer Möglichkeit, die Ober- und Unter-Grenze eines Excel-Diagramms variabel zu machen, ohne dabei VBA einzusetzen. D.h.: es soll je eine Zelle geben, in die der Benutzer die beiden Werte für die Achsenskalierung (z.B. der x-Achse) eintragen kann, also Minimum- und Maximum-Wert. Das Diagramm soll nun mit diesen beiden Werten für die Skalierung der x-Achse dargestellt werden. Ich hab versucht, hier mit dynamischen Ranges (Namen) zu arbeiten, aber die akzeptiert Excel im Diagramm-Feld nicht... Bin für jede Idee dankbar der Jens

Hi Jens,
nein, diese Art Erläuterungen stehen wirklich nicht in der Arbeitsmappe, sie ist nur ein generelles Beispiel für die Verwendung von BEREICH.VERSCHIEBEN als dynamischer Datenbereich. Da du dich jedoch als Excel - gut eingeschätzt hast, nahm ich an, du könntest das auf dein Problem anpassen.
In D20 z.B. gibst du das Minimum, in E20 das Maximum für die darzustellenden X-Werte an.

Tabelle1

	A	B	C	D	E
6	X-Werte	Y-Werte
7	0,0	4
8	0,5	4
9	1,0	6
10	1,5	5
11	2,0	4
12	2,5	5
13	3,0	1,2
14	3,5	5,1
15	4,0	7,2
16	4,5	3,6
17	5,0	8,7
18	5,5	7
19	6,0	6		Minimum	Maximum
20	6,5	5		0,5	3,5
21	7,0	6	Zeile im Wertebereich	2	8
22	7,5	7
23	8,0	8
24	8,5	8
25	9,0	7

Formeln der Tabelle

D21 : =VERGLEICH(D20;A7:A25;0)
E21 : =VERGLEICH(E20;A7:A25;0)

Diagramm - Grafik - Excel Tabellen einfach im Web darstellen Excel Jeanie HTML 3.0 Download
Die Formel für den Namen, der als Basis für den X-Wertebereich der Datenreihe im Diagramm dient, ist folgende
=BEREICH.VERSCHIEBEN(Tabelle1!$A$6;INDIREKT("Tabelle1!D21");0;INDIREKT("Tabelle1!E21") -INDIREKT("Tabelle1!D21")+1;1)

Für die Y-Werte steht $B$6 anstelle von $A$6.
Bis später,
Karin

Hi Jörg,
das gepostete Beispiel ist das Maximale, was man mithilfe einer Formel erreichen kann. Das liegt ganz einfach daran, dass bei dieser Voregehensweise die Skalierung auf automatisch gestellet sein muss. In diesem Fall nimmt Excel jedoch immer 0 als Minimum an.
Um dieses Problem zu lösen bedarf es nur eines kleinen VBA-Codes:
Private Sub Worksheet_Change(ByVal Target As Range) Dim chDiagramm As Chart Dim raStart As Range Dim raEnde As Range If Target.Count > 1 Then Exit Sub With ActiveSheet Set raStart = .Range("A6:A25").Find(.Range("D20")) Set raEnde = .Range("A6:A25").Find(.Range("E20")) Set chDiagramm = .ChartObjects(1).Chart On Error GoTo Ende Select Case Target.Address Case "$D$20", "$E$20", "$F$20", "$G$20", "$D$21", "$E$21", "$F$21", "$G$21" chDiagramm.SetSourceData Source:=.Range("A" & raStart.Row & ":B" & raEnde.Row) If Target.Row = 20 Then With chDiagramm.Axes(xlPrimary) .MinimumScale = ActiveSheet.Range("D20") .MaximumScale = ActiveSheet.Range("E20") If ActiveSheet.Range("F20") = "" Or ActiveSheet.Range("G20") = "" Then .MinorUnitIsAuto = True .MajorUnitIsAuto = True Else .MajorUnit = ActiveSheet.Range("F20") .MinorUnit = ActiveSheet.Range("G20") End If End With Else With chDiagramm.Axes(xlValue) .MinimumScale = ActiveSheet.Range("D21") .MaximumScale = ActiveSheet.Range("E21") If ActiveSheet.Range("F20") = "" Or ActiveSheet.Range("G21") = "" Then .MinorUnitIsAuto = True .MajorUnitIsAuto = True Else .MajorUnit = ActiveSheet.Range("F21") .MinorUnit = ActiveSheet.Range("G21") End If End With End If End Select End With Ende: Set raStart = Nothing Set raEnde = Nothing Set chDiagramm = Nothing End Sub

In Zeile 20 werden die Skalierungswerte für die X-Achse, in Zeile 21 für die Y-Achse eingegeben. Minimum in Spalte D, Maximum in Spalte E, Hauptintervall in Spalte F und Hilfsintervall in Spalte G.
Bis später,
Karin

Diagramm: Achsengrenzen variabel ohne VBA?

Forumthread: Diagramm: Achsengrenzen variabel ohne VBA?

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial