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

Helfe beim Thema EXCEL Horizontale Achse schneidet - Wert mit Zellbezug mittels VBA in Microsoft Excel Hilfe um das Problem gemeinsam zu lösen; Hallo zusammen, als VBA-Neuling stehe ich vor einer für mich großen Herausforderung:confused:. Für ein Dashboard muss ich verschiedene Diagramme mit... Dieses Thema im Forum "Microsoft Excel Hilfe" wurde erstellt von mader, 21. Januar 2021.

  1. mader Erfahrener User

    EXCEL Horizontale Achse schneidet - Wert mit Zellbezug mittels VBA


    Hallo zusammen,

    als VBA-Neuling stehe ich vor einer für mich großen HerausforderungEXCEL Horizontale Achse schneidet - Wert mit Zellbezug mittels VBA :confused:. 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:

    EXCEL Horizontale Achse schneidet - Wert mit Zellbezug mittels VBA upload_2021-1-21_15-35-4.png

    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 HilfeEXCEL Horizontale Achse schneidet - Wert mit Zellbezug mittels VBA *:)*
    Grüße
    Peter
     
  2. Beverly
    Beverly Erfahrener User
    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
    

    EXCEL Horizontale Achse schneidet - Wert mit Zellbezug mittels VBA GrußformelEXCEL Horizontale Achse schneidet - Wert mit Zellbezug mittels VBA Beverly's Excel - Inn
     
    Beverly, 21. Januar 2021
    #2
    1 Person gefällt das.
  3. mader Erfahrener User
    Hallo Karin,

    zunächst herzlichen Dank dass Du Dich meinem Problem angenommen hastEXCEL Horizontale Achse schneidet - Wert mit Zellbezug mittels VBA *:)*.
    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.
    EXCEL Horizontale Achse schneidet - Wert mit Zellbezug mittels VBA upload_2021-1-22_7-55-51.png

    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 EXCEL Horizontale Achse schneidet - Wert mit Zellbezug mittels VBA :rolleyes:+ Bereits vorab vielen Dank
    Peter
     
  4. Beverly
    Beverly Erfahrener User

    EXCEL Horizontale Achse schneidet - Wert mit Zellbezug mittels VBA

    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".


    EXCEL Horizontale Achse schneidet - Wert mit Zellbezug mittels VBA GrußformelEXCEL Horizontale Achse schneidet - Wert mit Zellbezug mittels VBA Beverly's Excel - Inn
     
    Zuletzt bearbeitet: 22. Januar 2021
    Beverly, 22. Januar 2021
    #4
  5. mader Erfahrener User
    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.EXCEL Horizontale Achse schneidet - Wert mit Zellbezug mittels VBA *:)*
    Danke + Grüße
    Peter
     
  6. Beverly
    Beverly Erfahrener User
    Hi Peter,

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


    EXCEL Horizontale Achse schneidet - Wert mit Zellbezug mittels VBA GrußformelEXCEL Horizontale Achse schneidet - Wert mit Zellbezug mittels VBA Beverly's Excel - Inn
     
    Beverly, 22. Januar 2021
    #6
  7. mader Erfahrener User
    Hi Karin,

    klar....Sorry! Die Änderung von =Target.Value in =Range("C7") habe ich glatt übersehen!
    Klappt nun prima! Vielen DANKEXCEL Horizontale Achse schneidet - Wert mit Zellbezug mittels VBA *:)*EXCEL Horizontale Achse schneidet - Wert mit Zellbezug mittels VBA *:)*EXCEL Horizontale Achse schneidet - Wert mit Zellbezug mittels VBA *:)*
    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:
    EXCEL Horizontale Achse schneidet - Wert mit Zellbezug mittels VBA upload_2021-1-22_11-56-15.png
    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
     
  8. Beverly
    Beverly Erfahrener User

    EXCEL Horizontale Achse schneidet - Wert mit Zellbezug mittels VBA

    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.



    EXCEL Horizontale Achse schneidet - Wert mit Zellbezug mittels VBA GrußformelEXCEL Horizontale Achse schneidet - Wert mit Zellbezug mittels VBA Beverly's Excel - Inn
     
    Beverly, 22. Januar 2021
    #8
Thema:

EXCEL Horizontale Achse schneidet - Wert mit Zellbezug mittels VBA

Die Seite wird geladen...
  1. EXCEL Horizontale Achse schneidet - Wert mit Zellbezug mittels VBA - Similar Threads - EXCEL Horizontale Achse

  2. Werte der letzten Zelle einer Spalte in mehreren Tabellenblättern ermitteln

    in Microsoft Excel Hilfe
    Werte der letzten Zelle einer Spalte in mehreren Tabellenblättern ermitteln: Hallihalllo, Ich sitze gerade an meine Bachelorarbeit und muss mittels VBA ein Auswertungsprogramm für erhobene Daten erarbeiten. Ich suche schon ewig im Internet nach dem passenden Code und...
  3. Excel Automatisch Zellen ausfüllen

    in Microsoft Excel Hilfe
    Excel Automatisch Zellen ausfüllen: Hallo zusammen, ich habe ein kleines Projekt vor der Brust, bei dem ich hier gerne den richtigen Ansatz finden möchte. Ich Grunde genommen geht es darum das ich beim auslesen diverser Stammdaten...
  4. Tabelle verlängern

    in Microsoft Excel Hilfe
    Tabelle verlängern: Hallo zusammen, vielleicht könnt Ihr mir helfen. Aus verschiedenen Gründen soll Excel als Angebots-/Rechnungsformular verwendet werden, auch wenn wohl einiges dagegen spricht :) Gedanke ist...
  5. Excel VBA Problem create button

    in Microsoft Excel Hilfe
    Excel VBA Problem create button: Hallo liebe Community, ich hoffe ihr könnt helfen, bin am verzweifeln und kann den Fehler einfach nicht finden. Wir haben eine aufwendig gestallte Excel Liste, wo wir unter anderem Button...
  6. Excel Darstellung und Usermanagement

    in Microsoft Excel Hilfe
    Excel Darstellung und Usermanagement: Guten Tag, meine Monatsdienstpläne erstellen wir mit Excel. Hierbei habe ich einige Probleme und hoffe auf eure Hilfe. Die 5 Dienstpläne meiner unterteilten Abteilungen die bis jetzt erstellt...
  7. Excel Diagramm: Horizontale Achse eines Diagramms soll bei Minimalwert schneiden

    in Microsoft Excel Hilfe
    Excel Diagramm: Horizontale Achse eines Diagramms soll bei Minimalwert schneiden: Hallo zusammen, ich habe da ein Problem mit Excel Diagrammen. Ich kann die Y-Achse so formatieren, dass die x-Achse die Y-Achse bei einem bestimmten Achsenwert schneidet oder Automatisch schneidet...
  8. Bildlaufleiste horizontal darstelle bei excel 2007?

    in Microsoft Excel Hilfe
    Bildlaufleiste horizontal darstelle bei excel 2007?: Hallo Zusammen Lässt sich bei excel 2007 die Bildlaufleiste horizontal darstellen? D.h. um 90° drehen? Ich danke im Voraus Gruß shl10247
  1. ttsarche
  1. Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
    Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
    Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.
    Information ausblenden