Jeder Zeile einer Tabelle ein Diagramm zuordnen

Computer: Software & Programmierung Office Software
#1

Hallo,

ich möchte in einer Tabelle jeder Zeile ein Kreisdiagramm zuordnen und darstellen, dass sich aus den Werten der jeweiligen Zeile definiert. Konkretes Beispiel:
Zeile 1: Anteil A1 10%, Anteil B1 90%, Darstellung zugehöriges Kreisdiagramm 1
Zeile 2: Anteil A1 30%, Anteil B1 70%, Darstellung zugehöriges Kreisdiagramm 2
…
Zeile n: Anteil An 30%, Anteil Bn 70%, Darstellung zugehöriges Kreisdiagramm n

Es gelingt mir aber nicht (Excel 2002), ein Diagramm in eine Zelle abzulegen.

Gibt es eine Möglichkeit oder einen Workaround, mit dem ich n Kreisdiagramme automatisch erzeugen lassen kann, die
a) sich auf fortlaufende Zeileninhalte beziehen (siehe Beispiel) und
b) optimaler Weise auf Höhe der entsprechenden Zeile angezeigt werden?

Danke und Gruß

#2

Also ehrlich gesagt verstehe ich Dein Problem nicht ganz…
Wie firm bist Du in VBA-Programmierung?

Was ich Dir empfehlen würde ist folgendes:
Ein Makro schreibt bei SelectionChange die Zeilennummer in eine bestimmte Zelle.

Aus dieser Zelle wird ein Verweis generiert (=BEREICH.VERSCHIEBEN())
Der Dir immer an gleicher Stelle die Daten aus den einzelnen Zeilen abholt.
Aus diesem festen Bereich generierst Du nun Dein Kreisdiagramm.
Und wenn Du dann die Zeile wechselst wird Dein Diagramm automatisch upgedated.
Würde das Sheet wohl am übersichtlichsten halten…

#3

Da ist meine Beschreibung wohl etwas missverstanden worden.
Ich möchte nicht bloß ein einziges Kreisdiagramm haben,
sondern pro Zeile genau ein Kreisdiagramm.
Bei 20 Zeilen also 20 Kreisdiagramme (idealerweise in Spalte c - siehe folgendes Beispiel)

Zeile | Anteil a | Anteil b | Spalte c

1___|___10__|___90__| hier Kreisdiagramm 1 (10/90)
2___|___30__|___70__| hier Kreisdiagramm 2 (30/70)
3___|___50__|___50__| hier Kreisdiagramm 3 (50/50)
…
n___|____x__|____y__| hier Kreisdiagramm 1 (x/y)

aber meines Wissens werden Diagramme ja NICHT in Zellen plaziert, sondern „vor“ dem Tabellenblatt. Ich möchte nicht händisch für jede Zeile ein Diagramm erzeugen und mit der Maus näherungsweise an entsprechender Stelle platzieren.

#4

Ich möchte nicht bloß ein einziges Kreisdiagramm haben,
sondern pro Zeile genau ein Kreisdiagramm.

find ich persönlich unübersichtlich… aber jedem wie er es will…

Bei 20 Zeilen also 20 Kreisdiagramme (idealerweise in Spalte c

  • siehe folgendes Beispiel)

das sind dann entweder verdammt grosse Zeilen oder verdammt kleine Charts…?

aber meines Wissens werden Diagramme ja NICHT in Zellen
plaziert, sondern „vor“ dem Tabellenblatt. Ich möchte nicht
händisch für jede Zeile ein Diagramm erzeugen und mit der Maus
näherungsweise an entsprechender Stelle platzieren.

dann musst Du einen Weg finden das zu automatisieren :wink:
Beispielmakro:

Sub Makro1()
'einleitung - chart wird erstellt
 Charts.Add 
'chart-typ wird definiert
 ActiveChart.ChartType = xlPie
'Basisdaten werden angegeben (Kopfzeile = Legende)
 ActiveChart.SetSourceData Source:=Sheets("Tabelle1").Range("A1:B1"), \_
 PlotBy:=xlRows
'Werte des aktuellen Charts - das muss dann dynamisch geändert werden
 ActiveChart.SeriesCollection(1).Values = "=Tabelle1!R2C1:R2C2"
'Wo das Chart eingefügt werden soll
 ActiveChart.Location Where:=xlLocationAsObject, Name:="Tabelle1"
'ob es einen Titel hat (hier: nein)
 ActiveChart.HasTitle = False
' und so kann man es dann verschieben...
 ActiveSheet.Shapes("Diagramm 1").IncrementLeft 81#
 ActiveSheet.Shapes("Diagramm 1").IncrementTop 69#
 ActiveSheet.Shapes("Diagramm 1").IncrementLeft -27.75
 ActiveSheet.Shapes("Diagramm 1").IncrementTop 30#
 ActiveSheet.Shapes("Diagramm 1").IncrementLeft 3.75
 ActiveSheet.Shapes("Diagramm 1").IncrementTop 15#
 ActiveSheet.Shapes("Diagramm 1").IncrementLeft -4.5
 ActiveSheet.Shapes("Diagramm 1").IncrementTop -5.25
End Sub