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

Excel - Alleen de laatste gegevenslabels in een lijngrafiek laten zien.

Status
Niet open voor verdere reacties.
S

sjangtitulaer

Gebruiker
Lid geworden
2 apr 2018
Berichten
8
Beste allemaal,

Ik heb al een keer een zelfde soort vraag gesteld en met dank aan Harry ben ik toen verder op weg geholpen.
Helaas kom ik er nog niet helemaal uit, vandaar de volgende vraag.

Ik heb als voorbeeld een excel-bestand gemaakt met daarin een tabel met omzetten per winkel.
Elke week wordt deze tabel aangevuld met de weekomzetten waarna de grafiek automatisch wordt aangepast.
Tot zover gaat het prima.
De bedoeling is dat in de lijngrafiek alleen de gegevenslabels van de omzetten van de laatste week worden getoond.

In het Excel bestand ziet u de situatie dat ik in de tabel de omzetten van week 10 heb toegevoegd en de grafiek de gegevenslabels van week 9 en week 10 laat zien,
terwijl ik alleen de gegevenslabels van de omzetten van de laatste week 10 wil zien.

Ik kan natuurlijk elke week de gegevenslabels van de omzetten van de week ervoor verwijderen maar ik zou graag zien dat dit automatisch gebeurd zonder dat er verder iets verandert aan de grafiek.

Wie kan mij hiermee helpen?

Alvast bedankt,
M.v.g. Sjang Titulaer
 

Bijlagen

  • Omzet winkels.xlsx
    19 KB · Weergaven: 75
deze achter je tabblad omzet?

Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 5 Then
  Sheets("Grafiek omzet").ChartObjects("Grafiek 3").Activate
        For Each reeks In ActiveChart.SeriesCollection
        With reeks
                .HasDataLabels = False
                .Points(.Points.Count).ApplyDataLabels
        End With
    Next
End If
End Sub

Nog wat aangepast zodat de labels eruit zien zoals in je voorbeeld:

Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 5 Then
  Sheets("Grafiek omzet").ChartObjects("Grafiek 3").Activate
        For Each reeks In ActiveChart.SeriesCollection
        With reeks
                .HasDataLabels = False
                .Points(.Points.Count).ApplyDataLabels
                    With .DataLabels
                        .Position = xlLabelPositionLeft
                        .Format.Fill.ForeColor.RGB = reeks.Format.Line.ForeColor.RGB
                        .Font.Color = vbBlack
                    End With
        End With
    Next
End If
End Sub
 
Laatst bewerkt:
Meer een keuze vraag?

Wat is je publiek die dit wilt zien? Waar hebben zij baat bij?
Waarom wil je die getallen erbij hebben? De lijn zegt toch al genoeg? Je zou de rechter-y-as eventueel ook nog actief kunnen maken?

Als er toch getallen "moeten" komen .. dan vind ik de tabel al duidelijk zat en je kunt daar tegenwoordig geloof ik ook nog lijntjes bij zetten.
Wat zegt zo'n getal op zich nl eigenlijk... waar zet je het tegen af?
Bij ons is er een target-omzet en daarnaast komt de werkelijke omzet, dan heb je tenminste een vergelijk.

Zijn maar een paar ideetjes,... tis maar net waar uiteraard je eigen voorkeur ligt, maar mss heb je hier juist wel of niet aan gedacht...
 
Maak 4 extra "lijnen" aan die uit slechts 1 punt bestaan.
Geef deze een data label mee.
De 4 extra punten zijn gelijk aan de punten van de maximale week.
 

Bijlagen

  • sjangtitulaer Omzet winkels.xlsx
    19,9 KB · Weergaven: 59
@SjonR,

Code: 
For Each reeks In Sheets("Grafiek omzet").ChartObjects("Grafiek 3").chart.SeriesCollection
        With reeks

Ik zou de code bij voorkeur in de Sheets_Activate zetten van het ander blad.
 
Harry,

Zeker een goede optie! Maar op deze manier ziet TS meteen het resultaat.

Hij mag verder even uitvogelen hoe het wordt toegepast.
 
Beste allemaal,

Geweldig dat jullie zo meegedacht hebben en met oplossingen zijn gekomen.
En zoals Harry al oppert moet ik dat even uitvogelen.
Dat ga ik zeker doen en laat van me horen of het gelukt is.

Na al verschillende malen geholpen te zijn op helpmij.nl ga ik nu in elk geval doneren voor het goede werk dat hier geleverd wordt.

Allemaal super de luxe bedankt.

Grtz Sjang
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan