Hvis du er interesseret kan du sende filen til (i udtale):
hanspunktumknudsensnabelamailpunktumtelepunktumdk
så kigger jeg på det.

mvh
Hans

Jeg sender den med det samme.

Hej Hans

Jeg har ikke glemt dig, men jeg er lige kommet hjem fra kursus, så jeg ser lige på det du har sendt mig i morgen, så du også kan få nogle point.

Mvh. Jon

Det glæder mig, at du kunne bruge forslaget.

mvh
Hans

Hej Hans

Det vil ikke rigtigt virke når jeg overføre din formel til excel 2007, men jeg har ihvert fald noget at arbejde vider med. :)

Jon

Det har du ret i. Jeg har selv konstateret det samme.Ved eftertanke mindes jeg at have læst andetsteds, at grafværktøjet i Excel 2007 er en dårlig erstaning for grafværktøjet i Excel 2003 (måske bortset fra noget "vinduespynt"). Jeg har desværre ingen forslag her, altså udover at bruge Excel 2003.

Hans

Hej Hans

Det er ok. Jeg sætter ihvertfald stor pris på det du har lavet til mig uanset hvad.
Som sagt har det givet mig noget at bygge vider på. :)


Mvh. Jon

Jeg har arbejdet lidt vider med ovenstående dilemma, og fundet en VBA-løsning som fungere - hvis der nu skulle være nogen der var interesseret.

Sub SorterDiagram()

    Range("A2:B7").Select
    ActiveWorkbook.Worksheets("Ark1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Ark1").Sort.SortFields.Add Key:=Range("B2:B7"), _
        SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Ark1").Sort
    End With
    Sheets("Ark2").Select
    ActiveSheet.Shapes.AddChart.Select
    ActiveChart.ChartType = xlColumnClustered
    ActiveChart.SetSourceData Source:=Sheets("Ark1").Range("A2:B" & 7 - Sheets("Ark1").Range("B8"))
    Range("A1").Select
   
End Sub

Jeg har skrevet formlen =TÆL.HVIS(B2:B7;0)
På den måde får jeg et søjlediagram som kun viser søjler der har værdier fra min statiskit (man kan også bruge =TÆL.HVIS(B2:B7;"") hvis man har tomme celler i stedet for nuller).

Det er muligt at koden ikke er super anvendelig ved søjlediagrammer, men hvis man gerne vil undgå at have dataetiketter med værdien 0 i et lagkagediagram er den god. Det giver helt klart en bedre visuelt indtryk af diagrammet.

Hvis man vil have et lagkagediagram i stedet for et søjlediagram skal man bare skifte følgende sætning ud:

ActiveChart.ChartType = xlColumnClustered

ActiveChart.ChartType = xlPie

Håber der er nogen der kan bruge det. :)

Hov! lige en rettelse.
Vi skal jo også vide hvad der skal filtrers efter. :)

Sub SorterDiagram()

    Range("A2:B7").Select
    ActiveWorkbook.Worksheets("Ark1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Ark1").Sort.SortFields.Add Key:=Range("B2:B7"), _
        SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Ark1").Sort
        .SetRange Range("A1:B7")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Sheets("Ark2").Select
    ActiveSheet.Shapes.AddChart.Select
    ActiveChart.ChartType = xlColumnClustered
    ActiveChart.SetSourceData Source:=Sheets("Ark1").Range("A2:B" & 7 - Sheets("Ark1").Range("B8"))
    Range("A1").Select
   
End Sub