Diagramm dynamisch anpassen
11.02.2007 22:26:24
katha
Habe versucht das unten eingefügte Makro an einem Balkendiagramm anzuwenden. Spalten E6:E,F6:F sollen den Wertebereich und G6:G den Def.bereich(also die Balkenlänge)darstellen. Je nach der Anzahl der Einträge soll das Diagramm dynamisch angepasst werden.
Hinter jeder Zelle in diesem Bereich (E6:G) ist eine Anweisung hinterlegt.Je nachdem wieviele Daten ich habe, erhalten die Zellen einen Eintrag ansonsten einen leeren String, die das Diagramm dann als Null darstellt. Dies möchte ich vermeiden und auf der Y-Achse "abschneiden".
Meine erste Frage ist: Wenn ich nun Frage, ob die Zelle leer ist(" "). Habe ich das Gefühl, dass ich er die Zellen nicht als leer ansieht.
Zweitens stellt er mir mit dem Quellcode gar nichts im Diagramm dar.
Hier der Quellcode:
Sub Makro1()
ActiveSheet.ChartObjects(1).Activate
ActiveChart.PlotArea.Select
End Sub
Private Sub Worksheet_Change(ByVal target As Excel.Range)
SPALTE = "E"
ANFANG = 6
ENDE = 16
startzelle = SPALTE & ANFANG & ":"
zaehler = ANFANG
Do While zaehler <= ENDE
aktZell = "G" & zaehler
If aktZell = "" Then
diagramm_range = startzelle & "G" & zaehler - 1
Exit Do
Else
diagramm_range = startzelle & "G" & zaehler
With Tabelle2
Tabelle2.ChartObjects(1).Chart.SetSourceData _
Source:=Tabelle2.Range(diagramm_range), PlotBy:=xlColumns
End With
End If
zaehler = zaehler + 1
Loop
End Sub
Bitte helft mir. Was mache ich bloß falsch.
Liebe Grüße
Katharina