Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
272to276
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
272to276
272to276
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Zahlen für Achsenformatierung übernehmen

Zahlen für Achsenformatierung übernehmen
01.07.2003 16:21:16
wolfgang237
Hallo Forum,
nachdem ich hier im Forum einige Lösungen gefunden habe, möchte ich auf eine Lösungsmöglichkeit hinweisen und damit die Frage nach einem anderen Problem verbinden.
Achsenbeschriftungen übernehmen:
Wie bekannt, kann man Achsenbeschriftungen aus je einer Zelle des Tabellenblatts übernehmen, aber eben nur aus einer Zelle.
Wenn aber dynamische Beschriftungen über mehrere Zellen verteilt sind, dann kann man sie nicht direkt in die Achsenbeschriftung übernehmen - mit einem kleinen Trick gelingt aber auch das; dazu fasst man die einzelnen Texteingaben in einer Zelle mit Hilfe von & in einer neuen Zielzelle zusammen. Diese neue Zelle, die jetzt den gesamten dynamischen Titel enthält, kann man dann über = zusammenhängend in die Achsenbeschriftung übernehmen.
So, und jetzt mein Problem:
Leider gelingt es mit = nicht, die Zahlen zur Achsenskalierung direkt aus dem Zahlenmaterial aus der zugehörigen Tabelle zu übernehmen; das ist unproblematisch, solange in einem Zahlenwerk die Grafiken immer aus einem festen Wertevorrat mit unveränderlichen Dimensionen herstammen. Wenn sich die Dimensionen der Grafik aber bei jeder Messreihendarstellung erheblich verändern, dann würde man auch die Skalierung der Grafikachsen gern dynamisieren und aus dem Material des Zahlenblattes herleiten, z.B. als Max-Wert plus 10% für das Maximung, Min-Wert -10% und für die Schnittstelle der Abszisse in der Ordinate z.B. Min-Wert -15%.
Hat jemand eine Idee, wie man dieses Problem lösen kann und ob das ohne Makro zu realisieren ist.
Danke für Eure Mühe - Wolfgang

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
noch offen
02.07.2003 21:04:42
andre
hallo wolfgang,
ohne code ist da nichts machbar.
ansonsten hilft dir das aufzeichnen, da bekommst du z.b. das:

Sub Makro1()
' Makro1 Makro
' Makro am 02.07.2003 von wanderer aufgezeichnet
ActiveChart.PlotArea.Select
ActiveChart.Axes(xlValue).Select
With ActiveChart.Axes(xlValue)
.MinimumScale = -1
.MaximumScale = 4
.MinorUnitIsAuto = True
.MajorUnitIsAuto = True
.Crosses = xlAutomatic
.ReversePlotOrder = False
.ScaleType = xlLinear
.DisplayUnit = xlNone
End With
End Sub

die werte kannst du aus den zellen entnehmen und die zuschläge dazurechnen...
gruss andre

Anzeige

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige