Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
180to184
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
180to184
180to184
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

dynamische achsenskalierung

dynamische achsenskalierung
18.11.2002 12:57:28
Andreas
hallo,

ich möchte gern, abhängig davon, wie hoch der wertebereich eines diagrammes ist, die skalierung der y-achse automatisch wählen.
ABER NICHT mit der normalen automatik (checkboxen im achsenmenü), denn die skaliert dann doch meist ab Null, selbst wenn die Werte nur zwischen 98 und 101,5 schwanken...

wer hat einen tipp? VBA kann ich nicht, es sei denn ihr sagt mir, wo ich das dann eintippen müsste.

danke!
andreas

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: dynamische achsenskalierung
18.11.2002 13:45:56
Knud
Hi,
Du kannst Doch eingeben, bei welchem Wert die X-Achse geschnitten werden soll. Dass ist dann zwar auch nicht dynamisch, aber wenn man den Wertebereich so eingrenzen kann, wie Du oben, dann hilft das doch schon, oder?

Knud

Re: dynamische achsenskalierung
18.11.2002 13:51:06
Andreas
Ich muss da präzisieren!

Ich habe mir ein einziges Excel-Chart gestrickt, das jede Menge Kennzahlen abbilden soll, jede in einem total anderen Wertebereich.
In einem Auswahlmenü kann man eine Kennzahl auswählen, die dann mit Ist/Plan/Vorjahr ausgegeben wird.
Aber das blöde Excel wählt den Schnittpunkt der X/Y-Achse und die Skalierung manchmal völlig blödsinnig, so dass ich den SChnittpunkt gerne mit 80% des Minimalwertes festsetzen möchte.
Eine Formel kann man in betreffendes Feld im Menü allerdings nicht eingeben, nur Zahlen. Und es soll ja automatisch gehen!

Gruss
Andreas

Anzeige
Re: dynamische achsenskalierung
18.11.2002 14:20:09
Andreas
Lösung:

Sub Makro2()
'
' Makro2 Makro
' Makro am 18.11.2002 von fs5152 aufgezeichnet
'
' Tastenkombination: Strg+a
'

Dim myRange As Range
Set myRange = Worksheets("Monatschart").Range("E23:P24")
answer = Application.WorksheetFunction.Min(myRange) * 0.85
ansger = Application.WorksheetFunction.Max(myRange) * 1.15
ActiveSheet.ChartObjects("Diagramm 1").Activate
ActiveChart.Axes(xlValue).Select
With ActiveChart.Axes(xlValue)
.MinimumScale = answer
' .MaximumScale = ansger
.MinorUnitIsAuto = True
.MajorUnitIsAuto = True
.Crosses = xlAutomatic
.ReversePlotOrder = False
.ScaleType = xlLinear
.DisplayUnit = xlNone
End With
End Sub
Sub Makro3()
'
' Makro3 Makro
' Makro am 18.11.2002 von fs5152 aufgezeichnet
'
' Tastenkombination: Strg+q
'
ActiveSheet.ChartObjects("Diagramm 1").Activate
ActiveChart.Axes(xlValue).Select
With ActiveChart.Axes(xlValue)
.MinimumScaleIsAuto = True
.MaximumScaleIsAuto = True
.MinorUnitIsAuto = True
.MajorUnitIsAuto = True
.Crosses = xlAutomatic
.ReversePlotOrder = False
.ScaleType = xlLinear
.DisplayUnit = xlNone
End With
End Sub


Danke für die Hilfe, Knud.
Habs jetzt selbst hingekriegt!

Gruss
Andreas

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige