stefanh
Goto Top

Excel Makro Kreisdiagramm für Fortgeschrittene

hallo zusammen,

habe mal wieder ein excel / makro problem 
ich möchte ein kuchendiagramm / kreisdiagramm erstellen, das von allen vorhandenen sheets (mappen) immer 4 werte von A62:D62 liest und diese in das kuchendiagramm einordnet. bsp.:

werte sheet 1: werte sheet 2: werte sheet.......

52 61 34 70 42 20 59 23 33 67 55 43

das kuchendiagramm sollte in 5 bereich unterteilt / aufgebaut sein, die wie folgt agieren sollen.
die 4 werte (über die ganzen Sheets hinweg) die kleiner gleich 30 sind, sollen in das erste kuchenstück. alle werte die kleiner gleich 40, aber größer als 30 in das zweite kuchenstück. alle werte die kleiner gleich 50, aber größer als 40 in das dritte kuchenstück und so weiter.

man sollte dann ein kreisdiagramm bekommen, mit 5 kuchenstücken die wie folgt aussehen sollten:
( <=30, > 30 und <=40, >40 und <=50, >50 und <=60, >60) Das Diagramm soll die werte prozentual darstellt. d.h. bsp.:

- 20 Prozent der werte sind kleiner 30
- 10 Prozent der werte zwischen 30 und 40
- 40 Prozent der werte zwischen 40 und 50
- 10 Prozent der werte zwischen 50 und 60
- 20 Prozent der werte sind über 60

ist das arg kompliziert oder hat jemand da eine idee?

beste grüße

stefan

Content-Key: 286472

Url: https://administrator.de/contentid/286472

Printed on: April 24, 2024 at 08:04 o'clock

Member: colinardo
colinardo Oct 23, 2015 updated at 14:13:34 (UTC)
Goto Top
Hallo Stefan,
hab dir mal ein Beispiel zusammengestellt: verteilung_kreisdiagramm_286472.xlsm
Einfach im Sheet "Auswertung" den Button "Auswerten" anklicken.

Grüße Uwe
Member: StefanH
StefanH Oct 23, 2015 at 15:28:04 (UTC)
Goto Top
hi colinardo

vielen dank schonmal für das kreisdiagramm. habe nur ein problem und zwar: meine werte sind nicht direkt eingegebene zahlen, sondern errechnen sich aus anderen werten. d.h.. der befehl data / datarange wird nicht erkannt und die zahlen in dem auswertungs-sheet werden als #bezug angezeigt. wenn ich die erechneten Daten (J1+J2) ab ändere und zahlen reinschreibe funktioniert es.
Member: colinardo
colinardo Oct 23, 2015 updated at 15:46:04 (UTC)
Goto Top
Zitat von @StefanH:
vielen dank schonmal für das kreisdiagramm. habe nur ein problem und zwar: meine werte sind nicht direkt eingegebene zahlen, sondern errechnen sich aus anderen werten. d.h.. der befehl data / datarange wird nicht erkannt und die zahlen in dem auswertungs-sheet werden als #bezug angezeigt. wenn ich die erechneten Daten (J1+J2) ab ändere und zahlen reinschreibe funktioniert es.

Für die die es dann noch brauchen können:
Sub Auswertung()
    Application.ScreenUpdating = False
    With Sheets("Auswertung")  
        .Range("1:1").ClearContents  
        For i = 1 To Sheets.Count - 1
            Sheets(i).Range("A62:D62").Copy  
            .Cells(1, Columns.Count).End(xlToLeft).Offset(0, 1).PasteSpecial Paste:=xlPasteValues
        Next
        ActiveWorkbook.Names("DataRange").RefersTo = "=" & .Range("B1", .Range("B1").End(xlToRight)).Address  
    End With
    Application.ScreenUpdating = True
End Sub
Grüße Uwe