Office: spezielles Makro Anpassung primäre + sekundäre x-Achse mit Zellbezug

Hallo Leute,

Nachdem Ich hier schon sehr geholfen bekommen habe, hoffe Ich auf erneute Hilfe (=

Folgender Fall:

Ich habe einige Diagramme mit Messwerten (siehe Anhang, aus Datenschutzgründen habe Ich einen weißen Balken über das Diagramm gelegt).

Ich messe jeden Tag erneut und somit ändert sich auf der primären und sekundären x-Achse die Skalierung. D.h. händisch 2x eingeben pro Diagramm. Bei einer automatischen Skalierung hat Excel mit den ganzen Zeitraum rein, da Ich leere Zellen mit NV() gefüllt habe und ich kann den Zeitraum einfach nicht so schön darstellen.

Teilweise habe Ich auch Diagramme, bei denen ein Teil der Zeitperiode nur angezeigt werden soll.

Deshalb suche Ich ein Makro, das folgendes macht:

aus fester Zellzeile (z.B. A23 Min. x-Achse oben und A24 Min. x-Achse unten etc...) einen Bezug zur x-Achsen-Skalierung herstellt. Das gleiche auch für beide y-Achsen, wenn möglich.

Ich hoffe es ist verständlich so. Excel nimmt leider nur feste Werte für die Achsenskalierung ohne VBA.

Im Internet habe Ich folgenden Ansatz gefunden:

Sub Makro1()
With ActiveSheet.ChartObjects("Diagramm 1").Chart.Axes(xlValue)
.MinimumScale = Cells(1, 1).Value ' A1
.MaximumScale = Cells(1, 2).Value ' B1
End With
End Sub

Das klappt aber nicht bei mir und nicht für beide Achsen.

:)

 

Hi Rivaldo,

aus dem Bild ist nicht ersichtlich, welchen Diagrammtyp du verwendest - falls es ein Liniendiagramm und kein Punktdiagramm ist, geht das für die Horizontalachse nicht, da sie von der Anzahl an Werten und nicht von den Werten an sich anhängig ist. In diesem Fall musst du den Wertebereich des Diagramms entsprechend anpassen.

 

Hier nochmals genauere Informationen:

- Punktdiagramm





http://www.fotos-hochladen.net/view/...imgbtqarlv.jpg

Unter dem Link ist ein größerer Bildschirmausschnitt.

 

Es handelt sich nicht um den Wertebereich! Ich möchte den letzten Zeitpunkt+6h als Achsenendwert haben! Dieser verschiebt sich jeden Tag flexibel mit neuen Messungen.

Ein Makro aus dem Recorder würde so aussehen:

Code:

Irgendwie reden wir aneinander vorbei oder?

 

Klar reden wir aneinander vorbei, aber das liegt einfach daran, dass niemand außer dir das Diagramm und die genauen Bedingungen kennt und ich lehne es ab, übers Internet in fremde Arbeitsmappen zu schauen *wink.gif* .

 

Das verlange Ich ja auch nicht, außerdem würde die Datenmenge eher verwirren. Ich schicke dir nochmal eine PN. m.M.n. ist es ein Punktdiagramm mit interpolierten Linien! Aber eben ein Punktdiagramm!

 

Auf dem Bild in deiner PN wird datsächlich ein Punkt-Diagramm verwendet, das Bild aus deinem Beitrag 14.10.2016, 10:22 zeigt jedoch ein Liniendiagramm.

Vermeide das Hochladen von Bildausschnitten deiner Arbeitsmappe, denn bei Diagrammen lässt sich nicht erkennen, wie sie und ihre Datengrundlage tatsächlich aufgebaut sind - und an einem Bild kann man schließlich keinen Code testen. Erstelle eine Demomappe, die nur die für das Problem relevanten Daten enthält (bei sehr umfangreichen Daten müssen es auch nicht komplett alle sein) und lade sie mit einem

 

Sorry, das ist aber wohl ein Excel 2010 / 2016 Fehler. Bei mir daheim waren es definitiv alles Punktdiagramme. Auf der Arbeit ist das alte Excel 2010 installiert.

Danke für den Tipp, Ich habe mal ein Demo-File angehängt, dass das Kernproblem die x-Achsenskalierung zeigt. Der Code sollte dann noch erläutert werden, dass Ich diesen bei allen Diagrammen anwenden kann.

Schonmal vielen vielen Dank!

 

Also Excel ändert nicht plötzlich von sich aus den Diagrammtyp, nur weil man eine andere Version verwendet... *wink.gif*

Code:

Ich denke, der Code ist selbsterklärend - falls nicht, einfach rückfragen was unklar ist.

 

Hey, super. So ein riesen Thread für so eine einfache Antwort *biggrin.gif* Danke!!!

Kleine Rückfrage: Ich habe so ca. 10 Diagramme (alle unterschiedliche Bezüge und Werte natürlich, ergo unterschiedliche Achsen!). Kann ich alle aufeinmal anpassen lassen beim Sheet-Öffnen? 10 verschiedene Makros erstellen ist ja sehr unprofessionell. Kann man die Diagramme via dem Diagrammnamen im Makro referieren?

In diesem Fall: "Nitrit 2016 Gesamt"
Das Makro quasi auf diesen Diagrammnamen beziehen...

yl sollte dann die Y-Achsen verändern oder?

(Ja evtl. habe Ich beim ersten Screenshot ausversehen auf Linie geklickt, es war aber definitiv immer ein Punktdiagramm. Naja egal^^)

Gibt es eine solche Option auch für Oberflächendiagramme?

 

ChartObjects(1) gibt das 1. Diagramm des Tabellenblattes an - anstelle der 1 kannst du auch den Diagrammnamen in verwenden: ChartObjects("Nitrit 2016 Gesamt")

Die Vertiakalachse heißt xlValue - hast du ja übrigens auch mit dem Makrorekorder aufgezeichnet *wink.gif* .

Für welche Achse - für die Horizontal- oder die Vertikalachse? Falls Vertikalachse: ja, falls Horizontalachse: nein (siehe meinen Beitrag von 14.10.2016 07:54)

 

Danke! Note 1+ *Smilie Alles läuft so wie es soll!