Chart automatisch formieren (Excel 2007)

11/11/2007 - 12:29 von Thomas Mauritz | Report spam
Hallo,

ich habe eine Zahlenreihe die ich in einem Chart (Tortengrafik) anzeigen
lassen möchte. Ich möchte die einzelnen Tortenstücke automatisch formartieren
lassen (Hintergrundfarbe) sobald sich die Eintràge neben der Zahlenreihe
àndern:

Beispiel:
- Zahlenreihe haben anfangs keiner Werte
- Hintergrund der Tortenstücke ist grau
Wenn ich jetzt einen Wert in die Felder neben der Zahlenreihe eingebe, dan
soll sich die Hintergrundfarbe des zugehörigen Tortenstücks auf gelb àndern.

Wie bekommt man das hin:

Ich habe in meiner Exceldatei 2 Blàtter (Punkteberechnung: Zahlenweihe mit
Werten und Anzeige: Punkteanzeige und Tortengrafik). Wenn ich nun einen wert
eingebe wird auch die Anzeige aktualisiert. Ich muss also irgend wie ein
Event für jedes Feld programmieren das mit Daten gefüllt werden kann (max. 40
Felder).

Hat jemand eine Idee wie das zu realisieren ist?

MfG
Thomas
 

Lesen sie die antworten

#1 Beverly
11/11/2007 - 13:30 | Warnen spam
Hi Thomas,

angenommen deine Datenwerte stehen in Spalte C1:C40. Mit diesem Code wird
das jeweilige Segment mit der Füllfarbe Gelb formatiert, wenn in Spalte B
etwas eingetragen wird

Private Sub Worksheet_Change(ByVal Target As Range)
Dim chDiagramm As Chart
Dim inReihe As Integer
If Target.Count > 1 Then Exit Sub
If Target.Column <> 2 And Target.Row > 5 Then Exit Sub
Set chDiagramm = ActiveSheet.ChartObjects(1).Chart
Select Case Target.Address
Case "$B$1"
inReihe = 1
Case "$B$2"
inReihe = 2
Case "$B$3"
inReihe = 3
Case "$B$4"
inReihe = 4
Case "$B$5"
inReihe = 5
End Select
If Target <> "" Then
chDiagramm.SeriesCollection(1).Points(inReihe).Interior.ColorIndex = 6
Else
chDiagramm.SeriesCollection(1).Points(inReihe).Interior.ColorIndex =
xlNone
End If
End Sub

Bis spàter,
Karin


"Thomas Mauritz" wrote:

Hallo,

ich habe eine Zahlenreihe die ich in einem Chart (Tortengrafik) anzeigen
lassen möchte. Ich möchte die einzelnen Tortenstücke automatisch formartieren
lassen (Hintergrundfarbe) sobald sich die Eintràge neben der Zahlenreihe
àndern:

Beispiel:
- Zahlenreihe haben anfangs keiner Werte
- Hintergrund der Tortenstücke ist grau
Wenn ich jetzt einen Wert in die Felder neben der Zahlenreihe eingebe, dan
soll sich die Hintergrundfarbe des zugehörigen Tortenstücks auf gelb àndern.

Wie bekommt man das hin:

Ich habe in meiner Exceldatei 2 Blàtter (Punkteberechnung: Zahlenweihe mit
Werten und Anzeige: Punkteanzeige und Tortengrafik). Wenn ich nun einen wert
eingebe wird auch die Anzeige aktualisiert. Ich muss also irgend wie ein
Event für jedes Feld programmieren das mit Daten gefüllt werden kann (max. 40
Felder).

Hat jemand eine Idee wie das zu realisieren ist?

MfG
Thomas

Ähnliche fragen