Kan ikke få screenupdating FALSE til at virke

Jeg kan vise programkoden der køres, hvis der er nogen, der måske kan hjælpe...?

Koden ser sådan ud:

Sub VisOMS()


' Makro til at vise Omsætning 2006, når der klikkes på "Omsætning 2006" i listen

    ActiveSheet.ChartObjects("Chart 1").Activate
    ActiveChart.PlotArea.Select
    ActiveChart.SeriesCollection(1).Values = "=Rapportstatus!R6C5:R6C16"
    ActiveChart.SeriesCollection(1).Name = "=Rapportstatus!R6C4"
   
    ActiveChart.SeriesCollection(2).Values = "=Rapportstatus!R7C5:R7C16"
    ActiveChart.SeriesCollection(2).Name = "=Rapportstatus!R7C4"
   
    ActiveChart.SeriesCollection(3).Values = "=Rapportstatus!R8C5:R8C16"
    ActiveChart.SeriesCollection(3).Name = "=Rapportstatus!R8C4"
   
    With ActiveChart
        .HasTitle = True
        .ChartTitle.Characters.Text = "Omsætning 2006"
        .Axes(xlCategory, xlPrimary).HasTitle = True
        .Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "Måned"
        .Axes(xlValue, xlPrimary).HasTitle = True
        .Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "DKK"
   
    End With
    ActiveChart.HasDataTable = False
     


End Sub

Sub VisOMS()


' Makro til at vise Omsætning 2006, når der klikkes på "Omsætning 2006" i listen
Application.Screenupdating = False
    ActiveSheet.ChartObjects("Chart 1").Activate
    ActiveChart.PlotArea.Select
    ActiveChart.SeriesCollection(1).Values = "=Rapportstatus!R6C5:R6C16"
    ActiveChart.SeriesCollection(1).Name = "=Rapportstatus!R6C4"
 
    ActiveChart.SeriesCollection(2).Values = "=Rapportstatus!R7C5:R7C16"
    ActiveChart.SeriesCollection(2).Name = "=Rapportstatus!R7C4"
 
    ActiveChart.SeriesCollection(3).Values = "=Rapportstatus!R8C5:R8C16"
    ActiveChart.SeriesCollection(3).Name = "=Rapportstatus!R8C4"
 
    With ActiveChart
        .HasTitle = True
        .ChartTitle.Characters.Text = "Omsætning 2006"
        .Axes(xlCategory, xlPrimary).HasTitle = True
        .Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "Måned"
        .Axes(xlValue, xlPrimary).HasTitle = True
        .Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "DKK"
 
    End With
    ActiveChart.HasDataTable = False
      Application.Screenupdating = True


End Sub


virker det ikke ?

På en måde... Nu låser markeringen i listen. Man kan godt klikke på de forskellige værdier i listen, men markeringen bliver samme sted - det oprindelige...

Følgende kode ligger i arket med listen og diagrammet, og så er der et modul med makroer - ligesom ovenstående - til hver af disse if sætninger:

Private Sub ListBox1_Click()

If ListBox1.Value = "Omsætning" Then VisOMS
If ListBox1.Value = "Acquisitions" Then VisACQ
If ListBox1.Value = "Churn" Then VisCRN
If ListBox1.Value = "Customer base" Then VisCB
If ListBox1.Value = "Leads TM WEB" Then VisLTMWEB
If ListBox1.Value = "Leads TM Outgoing" Then VisLTMOUTGOING
If ListBox1.Value = "Leads KAM" Then VisLKAM
If ListBox1.Value = "Leads KAM PARTNERE" Then VisLKAMPARTNERE
If ListBox1.Value = "Pipeline TM" Then VisPTM
If ListBox1.Value = "Pipeline KAM" Then VisPKAM
If ListBox1.Value = "Vundne sager TM WEB" Then VisVTMWEB
If ListBox1.Value = "Vundne sager TM OUTGOING" Then VisVTMOUTGOING
If ListBox1.Value = "Vundne sager KAM" Then VisVKAM
If ListBox1.Value = "Tabte sager TM" Then VisTTM
If ListBox1.Value = "Tabte sager KAM" Then VisTKAM
If ListBox1.Value = "Hit rate TM" Then VisHRTM
If ListBox1.Value = "Hit rate KAM" Then VisHRKAM
If ListBox1.Value = "Account Management pipeline" Then VisAMP
If ListBox1.Value = "First contacts TM" Then VisFCTM
If ListBox1.Value = "First contacts KAM" Then VisFCKAM
If ListBox1.Value = "Telefonisk opfølgning TM" Then VisTOTM
If ListBox1.Value = "Telefonisk opfølgning KAM" Then VisTOKAM
If ListBox1.Value = "Kundemøder Nysalg" Then VisKMN
If ListBox1.Value = "Kundemøder Opsalg" Then VisKMO

End Sub

Det er nok ret dårlig kode - men jeg kan desværre ikke mere end det :-)

jeg tror at det er bedre at smide dem ind her, og ikke de andre steder


Private Sub ListBox1_Click()

Application.Screenupdating = False

If ListBox1.Value = "Omsætning" Then VisOMS
If ListBox1.Value = "Acquisitions" Then VisACQ
If ListBox1.Value = "Churn" Then VisCRN
If ListBox1.Value = "Customer base" Then VisCB
If ListBox1.Value = "Leads TM WEB" Then VisLTMWEB
If ListBox1.Value = "Leads TM Outgoing" Then VisLTMOUTGOING
If ListBox1.Value = "Leads KAM" Then VisLKAM
If ListBox1.Value = "Leads KAM PARTNERE" Then VisLKAMPARTNERE
If ListBox1.Value = "Pipeline TM" Then VisPTM
If ListBox1.Value = "Pipeline KAM" Then VisPKAM
If ListBox1.Value = "Vundne sager TM WEB" Then VisVTMWEB
If ListBox1.Value = "Vundne sager TM OUTGOING" Then VisVTMOUTGOING
If ListBox1.Value = "Vundne sager KAM" Then VisVKAM
If ListBox1.Value = "Tabte sager TM" Then VisTTM
If ListBox1.Value = "Tabte sager KAM" Then VisTKAM
If ListBox1.Value = "Hit rate TM" Then VisHRTM
If ListBox1.Value = "Hit rate KAM" Then VisHRKAM
If ListBox1.Value = "Account Management pipeline" Then VisAMP
If ListBox1.Value = "First contacts TM" Then VisFCTM
If ListBox1.Value = "First contacts KAM" Then VisFCKAM
If ListBox1.Value = "Telefonisk opfølgning TM" Then VisTOTM
If ListBox1.Value = "Telefonisk opfølgning KAM" Then VisTOKAM
If ListBox1.Value = "Kundemøder Nysalg" Then VisKMN
If ListBox1.Value = "Kundemøder Opsalg" Then VisKMO

Application.Screenupdating = True


End Sub

Jep - det virker NÆSTEN perfekt. Men markeringen i listen bliver eet sted, og følger ikke med, når man klikker på en anden rapport. Ellers er det super mht. opdateringen - skærmen blinker ikke længere.

Nu laver den oven i købet flere markeringer i listen vilkårlige steder, når man klikker udenfor arket - måske fordi chartet stadig er markeret...?

hvad mener de med flere markeringer, er det celleområder som er markeret ??

Igen en gammel en jeg ikke har fulgt op på, undskyld kabbak. Smid et svar, så accepterer jeg :)

et svar ;-))