Diagramm X-Achse mit Bildlaufleiste steuern

[Jojobojox]

Moin zusammen!

Ich brösel nun seit ner halben Woche über einer grafischen Umsetzung die ich gesehen habe aber einfach nicht nachgebaut bekomme....   

Ich möchte Zugverspätungen grafisch darstellen ein Diagramm zu erstellen ist überhaupt kein Problem. Was ich aber möchte ist eine Bildlaufleiste um den Anzeigewert der X-Achse dynamisch zu steuern.

A27 Datum; B27 Abfahrt (Plan), C27 Abfahrt (Real), D27 Ankunft (Plan), E27 Ankunft (Real).
Darunter jeweils die die Datums-/Zeitwerte.

In G25; G26 habe ich einen Bereich.Verweis angelegt, Da ich denke das dieser am einfachsten um einen Wert +/- zu regulieren sein könnte. Und das könnte man dann als Wertebereich X-Achse benutzen.

Was ich in meiner "Inspiration" gefunden habe ist folgendes:

1: We have 100 data points.
2: Both scroll bars are set to accept values from 1 to 1096.
3: The cells directly under the left-hand side of the scroll bars are named 'ZoomVal' (E27) and 'ScrollVal' (E28).
4: The scroll bars have their 'Cell link' set to these cells, so that when you scroll the bar, the number in the cellchanges appropriately.
5: We have a defined name set up, ChtX, which uses these two values todetermine which subset of our data to show. The formula used in the name is: '=OFFSET(Sheet1!$A$4,ScrollVal,0,ZoomVal,1) which basically says "Start from the top of our data, go down the number of cellssets by the scroll value, and return a range whose number of rows is set by thezoom value"".
6: We use another defined name, ChtY to return the data values, defined as:
'=OFFSET(ChtX,0,1,,)
which says "Start from the range defined by ChtX and move across one column".
7: The chart is then modified to use these defined names instead of actual cellreferences, by modifying the series formula to be:
'=SERIES(,WorkbookName.xls!ChtX,WorkbookName.xls!ChtY,1)
8: Now as you slide the scroll bars, they update the cells they're linked to, whichchange the ranges pointed to by ChtX and ChtY, which in turn change the rangeof data drawn on the chart.

Named ranges:
ChrX determines the dates
ChrY determines the values
ZoomVal 33
ScrollVal 53

Ich weiß da steht eigentlich alles was man machen soll aber wenn ich das Zeile für Zeile Umsetze überschreibt mir dir Bildlaufleiste beim ersten Klick den Zellinhalt. 

Großes Hilfe, Hilfe   

[Officer]

Hallo,

ich habe mal ein Beispiel beigefügt, an dem du dich vielleicht orientieren kannst.
Dort wird per Bildlaufleiste die Skalierung der Vertikalachse eingestellt.

Dazu sind nur ein paar Zeilen VBA-Code notwendig:

Code: Visual Basic

1. Sub Skalierung()
2. ActiveSheet.ChartObjects("Diagramm 1").Activate
3. With ActiveChart.Axes(xlValue)
4.   .MaximumScale = ActiveSheet.Range("H19")
5.   .MinimumScale = 0
6. End With
7. End Sub
8.  

Gruß

Officer

[Beverly]

@Officer,

ein Diagramm muss man nicht aktiveren, wen man an ihm per VBA etwas ändern will:

Code: [Auswählen]

Sub Skalierung()
   With ActiveSheet.ChartObjects("Diagramm 1").Chart.Axes(xlValue)
     .MaximumScale = ActiveSheet.Range("H19")
     .MinimumScale = 0
   End With
End Sub


@Jojobojox,

vielleicht solltest du mal deine Arbeitsmappe hochladen, damit man nachschauen kann, was da nicht funktioniert.


Bis später,
Karin