Office: (Office 2016) EXCEL Horizontale Achse schneidet - Wert mit Zellbezug mittels VBA

Hallo zusammen,

als VBA-Neuling stehe ich vor einer für mich großen Herausforderung. Für ein Dashboard muss ich verschiedene Diagramme mit spezifischen Achsenwert (Horizontale Achse schneidet) je Diagramm definieren. Diesen Achswert (C7) hole ich mittels wverweis Suchkriterium A1 hinter welchem eine DropDown Auswahl hinterlegt aus dem Register ZST 10 JAHRE. Hier mal ein Entwurf zur besseren Darstellung:



Dass dies mittels Zellbezug (Formel) nicht möglich ist konnte ich bereits online recherchieren. Angeblich ist dies nur mittels VBA realisierbar?!
Daher habe ich die Einstellung mit der Makroaufzeichnung nachgestellt:

Code:

Sub test2()
'
' test2 Makro
'

'
    ActiveSheet.ChartObjects("Diagramm 1").Activate
    ActiveChart.Axes(xlValue).Select
    ActiveChart.Axes(xlValue).CrossesAt = 60000
End Sub

Meine eigentliche Anforderung wäre dass nach dem auswählen des DropDown Wertes das Makro ausgelöst wird und der Wert aus Zelle C7 in den oben genannten Achswert geschrieben wird (Max, Min für Grenzen und Intervalle sind nebensächlich).

Ist das mit entsprechenden Coding realisierbar?

Vorab bereits besten Dank für Eure Hilfe
Grüße
Peter

 

Hi Peter,

folgenden Code ins Codemodul des Tabellenblattes:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells(1).Address(False, False) = "C7" Then
        If IsNumeric(Target.Cells(1)) Then
            ActiveSheet.ChartObjects("Diagramm 1").Chart.Axes(xlValue).CrossesAt = Target.Value
        End If
    End If
End Sub

---

 

Hallo Karin,

zunächst herzlichen Dank dass Du Dich meinem Problem angenommen hast.
Ich habe den von Dir zur Verfügung gestellten Code in der Tabelle7(DATA) eingefügt. Doch leider ändert
sich der Wert der horizontalen Achse nicht entsprechend des in C7 stehenden Wertes nach Auswahl des Jahres in A1.


Wie bereits erwähnt sind meine VBA Kenntnisse ziemlich dürftig. Könntest Du Dir das bitte ansehen wo ich hier genau den Fehler gemacht habe?

Sorry + Bereits vorab vielen Dank
Peter

 

Hi Peter,

ich hatte nicht berücksichtigt, dass die Veränderung durch Zelle A1 ausgelöst wird und in C7 nur eine Formel steht. Ändere im Code "=C7" in "=A1" und =Target.Value in =Range("C7")

Außerdem heisst dein Diagramm nicht "Diagramm 1" sondern "Diagramm 2".

---

 

Hi Karin,

vielen Dank für die Schnelle Rückmeldung. Ich denke hier stimmt immer noch etwas nicht ganz. Nun wird Änderung erkannt aber nur die Jahreszahl als Wert für den Achswert geschrieben und nicht der Wert aus C7 nach Auswahl des entsprechenden Jahres.
Danke + Grüße
Peter

 

Hi Peter,

lies dir meinen vorhergehenden Beitrag noch einmal durch, ich hatte im Nachhinein noch etwas geändert, was du offensichtlich nicht gesehen hattest.

---

 

Hi Karin,

klar....Sorry! Die Änderung von =Target.Value in =Range("C7") habe ich glatt übersehen!
Klappt nun prima! Vielen DANK
Erlaubst Du mir bitte abschließend noch eine kleine Frage bezüglich des weiteren Aufbaus des Dashboards?

Ich habe nun die Basis um einen 2. Block mit separaten Diagramm erweitert:

Kann ich Deinen Code unkompliziert "kopieren" und die Bezüge auf A1 belassen und entsprechend auf C11 den Wert in
das Diagramm 3 schreiben und so weiter und so fort...?

Danke + Grüße
Peter

 

Hi Peter,

ja, du musst nur die Codezeile

Code:

ActiveSheet.ChartObjects("Diagramm 2").Chart.Axes(xlValue).CrossesAt = Range("C7")

entsprechend oft kopieren, den Diagrammnamen anpassen und selbstverständlich die Zelladresse, aus der der betreffende Wert genommen werden soll.

---