Es geht um Excel. Halbkreisdiagramme?

Question

Also ich möchte mit Excel ein Halbkreisförmiges Diagramm erstellen, da es mein Hobby ist Sachen auszuwerten. Für manche Sachen wie zum Beispiel Sitzverteilung ist Halbkreis besser wie geht das?? am besten noch so, dass man unten die gesamt Zahl schreiben kann und dann die untere Achse (0° und 180° Achse) nich gerade ist sondern in der Mitte beim Treffpunkt abgerundet wie im Fernsehen eben^^ :P Danke Seeehr

Answer 1

Also,
Halbkreise sind mit ein wenig Geschick und Tücke möglich!!

Beispiel:
Die Datenquelle besteht aus einer Sitzverteilung von 4 Parteien.
Partei 1 hat 25 Sitze
Partei 2 hat 30 Sitze
Partei 3 hat 15 Sitze
Partei 4 hat 30 Sitze

Sind zusammen 100 Sitze
Wenn du diese Datenquelle nehmen WÜRDEST mit einem Kreisdiagramm, kommst du nicht wirklich weiter.

Teile die Sitzverteilung um die Hälfte und füge unter der 4ten Partei als Beispiel ein:
Nichts = 50 Sitze

Die Halbierung der Parteisitze + die 50 Sitze von Nichts ergeben wieder 100

Erstelle nun mit allen 5 Datenquellen dein Kreisdiagramm.
Mit den weiteren Optionen, kannst du das Kreisdiagramm in jede beliebiege Position drehen.

Ebenso kannst du den Bereich der 50 Sitze von Nichts im Kreisdiagramm "verschwinden" lassen.
Dazu einfach den Breich im Diagramm markieren und über die Optionen den Rahmen und die Farbe auf "KEINE" stellen.
Die Hälfte des Diagrammes wird somit nicht mehr angezeigt!
Und schon hast du dein "Halbkreisdiagramm"

Nachtrag:
Es gibt ein sehr gutes Excel-Forum im Internet.
www.excel-center.de

Answer 2

Als Doughnut Diagram geht das:
Die Summe aller Daten ergibt die untere Hälfte des Diagramms, die dann einfach nicht angezeigt wird.

Hier ein Beispiel als Makro:

Sub Makro1()
Rem Daten Erstellen
Range("C1").FormulaR1C1 = "345"
Range("C2").FormulaR1C1 = "543"
Range("C3").FormulaR1C1 = "76"
Range("C4").FormulaR1C1 = "12"
Range("C5").FormulaR1C1 = "15"
Range("C6").FormulaR1C1 = "=SUM(R[-5]C:R[-1]C)"
Range("B1").FormulaR1C1 = "=RC[1]/R[5]C[1]"
Range("B2").FormulaR1C1 = "=RC[1]/R[4]C[1]"
Range("B3").FormulaR1C1 = "=RC[1]/R[3]C[1]"
Range("B4").FormulaR1C1 = "=RC[1]/R[2]C[1]"
Range("B5").FormulaR1C1 = "=RC[1]/R[1]C[1]"
Range("B1:B6").NumberFormat = "0.00%"
Range("A1").FormulaR1C1 = "Partei 1"
Range("A2").FormulaR1C1 = "Partei 2"
Range("A3").FormulaR1C1 = "Partei 3"
Range("A4").FormulaR1C1 = "Partei 4"
Range("A5").FormulaR1C1 = "Partei 5"
Range("A6").FormulaR1C1 = "Summe"
Rem Diagram erstellen
Charts.Add
ActiveChart.ChartType = xlDoughnut
ActiveChart.SetSourceData Source _
:=Sheets("Tabelle1") _
.Range("C1:C6"), PlotBy _
:=xlColumns
ActiveChart.SeriesCollection _
(1).XValues = "=Tabelle1!R1C1:R6C2"
ActiveChart.Location Where _
:=xlLocationAsObject, Name:="Tabelle1"
ActiveChart.SeriesCollection _
(1).Select
ActiveChart.SeriesCollection _
(1).ChartType = xlDoughnut
ActiveChart.SeriesCollection _
(1).Select
ActiveChart.ChartArea.Select
ActiveChart.HasLegend = True
ActiveChart.ApplyDataLabels AutoText:=True, LegendKey:=False, _
HasLeaderLines:=False, ShowSeriesName:=False, ShowCategoryName:=True, _
ShowValue:=True, ShowPercentage:=False, ShowBubbleSize:=False
ActiveChart.PlotArea.Select
ActiveChart.SeriesCollection _
(1).Select
ActiveChart.SeriesCollection _
(1).Points(6).Select
With ActiveChart.ChartGroups(1)
.VaryByCategories = True
.FirstSliceAngle = 270
.DoughnutHoleSize = 15
End With
ActiveWindow.Visible = False
Range("D6").Select
Rem untere Hälte löschen
ActiveSheet.ChartObjects _
("Diagramm 1").Activate
ActiveChart.SeriesCollection _
(1).Select
ActiveChart.SeriesCollection _
(1).Points(6).Select
With Selection.Border
.Weight = xlThin
.LineStyle = xlNone
End With
Selection.Shadow = False
Selection.Interior.ColorIndex = xlNone
ActiveChart.SeriesCollection _
(1).Points(6).ApplyDataLabels AutoText:=True, _
LegendKey:=False, ShowSeriesName:=False, ShowCategoryName:=False, _
ShowValue:=False, ShowPercentage:=False, ShowBubbleSize:=False
Rem Summe Löschen
ActiveSheet.ChartObjects _
("Diagramm 1").Activate
ActiveChart.Legend _
.Select
ActiveChart.Legend. _
LegendEntries(6).Select
Selection.Delete
End Sub

Answer 3

Das geht bestimmt, wenn du dich mit der Programmierung auskennst. Vielleicht hat diesbezüglich sogar jemand eine Lösung parat.

Aber warum schummelst du nicht einfach: mach einen Anteil = 50 % - den drehst du nach oben. Die restlichen Werte halbierst du um die Hälfte - geht ja in Excel wunderbar automatisch - und am Schluss machst du den 50% Bereich weiß ohne Linie - ohne alles. Sollte doch funktionieren.

Answer 4

Ich glaube das geht nicht, du kannst nur ganze Kreise machen!