• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

X-as labels in grafiek dynamisch

Status
Niet open voor verdere reacties.
P

Pieter671

Gebruiker
Lid geworden
26 jun 2015
Berichten
100
Ik heb een modelletje met een grafiek.

In Cel B14 heb ik een referentieprijs (Pref) staan.

De x-as in de grafiek laat de waarden Pref zien. (+ en - € 50,-)
De as-labels moet ik iedere keer handmatig aanpassen.

Als ik bijvoorbeeld Cel B14 verander in € 125,- dan verschuift de grafiek naar rechts.
Na het handmatig aanpassen van de as-labels staat het weer goed.

Graag zoek ik een oplossing waarbij as-label dynamisch worden aangepast bij het veranderen van Cel B14.

Heeft iemand een idee?
 

Bijlagen

  • Factor.xlsx
    37 KB · Weergaven: 25
Met een change-event in Blad1(Factor):
Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
If Not (Intersect(Target, Range("B14")) Is Nothing) Then
    Calculate
    ActiveSheet.ChartObjects("Grafiek 3").Activate
    ActiveChart.Axes(xlCategory).MinimumScale = Range("C24").Value
    ActiveChart.Axes(xlCategory).MaximumScale = Range("C44").Value
    Range("B14").Select
End If
End Sub
 
Bedankt voor de oplossing.
Is het ook mogelijk om dit zonder VBA te doen?
 
Beste Gijsbert,

Wat een mooie oplossing heb je hier geven. Mijn complimenten.
Een enorme slimme zet om dit via de getalswaarde van de datum te doen.

Ik heb even moeten stoeien om dit te reproduceren, maar het is gelukt.
Deze oplossing kan ik bij meer van mijn modellen toepassen.

Dank je wel voor deze geweldige tip.

Groet,
Pieter
 
Laatst bewerkt:
Dag Pieter,

Geen dank!
Goed te horen dat het gelukt is.
Soms zit de oplossing in onverwachte hoek. :)
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan