Dynamisches Diagramm auch auf Spaltenzahl anpassen
13.11.2003 14:38:18
Chaotica
mir ist es jetzt mehr oder weniger erfolgreich gelungen mittels VBA eine Tabelle so anzupassen, dass sie mir die Daten dynamisch anpasst. Zumindest was die Zahl der Zeilen angeht. Ein kleiner Fehler steckt noch drin, aber den hoffe ich gleich rauszukriegen.
Allerdings bräuchte nun noch eine Lösung, wie ich auch die Spaltenanzahl dynamisch anpasse und als zusätzliche Herausforderung: ich möchte auch die Benennung der Datenreihen dynamisch aus dem Tabellenblatt übernehmen, damit keine unnötig große Legende entsteht.
Mein bisheriger Code sieht so aus:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngStart As Range
Dim rngZeilen As Range
Dim intEnde As Integer
If Target.Column >= 1 And Target.Column <= 81 And Target.Row >= 5 And Target.Row <= 20 Then
Set rngZeilen = Range("A5:A20")
Set rngStart = ActiveCell
intEnde = Cells(rngZeilen.Rows.Count, rngStart.Column).End(xlUp).Row
-> Da steckt noch ein Fehler, intEnde wird nicht korrekt bestimmt...
ActiveSheet.ChartObjects("Diagramm 5").Activate
ActiveChart.SetSourceData Source:=Sheets("Tabelle1").Range("a5:h" & intEnde)
End If
End Sub
Über jede Hilfe dankbar,
Chaotica