Diagramm !!!!!!!!

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Label
Bild

Betrifft: Diagramm !!!!!!!!
von: Norb
Geschrieben am: 25.11.2003 18:09:13

Hallo Jungs, wer kann mir helfen?

Ich habe als Tabelle eine Matrix. Die Größe dieser Matrix ist aber nicht konstant. Es können in Breite und Höhe Werte hinzugefügt werden. Ich will nun die Werte der Matrix in einem Diagramm darstellen, egal wie groß die Matrix ist. Ich hab bereits versucht, mit Hilfe von Excelfunktionen das Diagramm dynamisch zu gestalten, bin aber nicht glücklich geworden. Ich will es nun mit eiem Makro versuchen. Dabei sollen aber lediglich die Diagrammeigenschaften (z.B. zusätzliche Reihen, ...) im bestehenden Diagramm aktualisiert werden.

Kann mir da jemand weiter helfen???

Vielen Dank mal.

Gruss Norb


Bild


Betrifft: AW: Diagramm !!!!!!!!
von: DieterB
Geschrieben am: 25.11.2003 18:48:40

Hallo Norb,

Du mußt eine Routine nehmen, um die Spalten oder Zeilen zu zählen.


Sub Dia1()
Dim Dia As ChartObject
Dim s As String
Dim i As Integer
   ActiveSheet.ChartObjects.Delete
   Set Dia = ActiveSheet.ChartObjects.Add _
  (5, 165, 710, 1500)
   Dia.Name = "Tagesstatistik"
   i = ActiveSheet.Range("U2").End(xlDown).Row
   Range("U1:W" & i).Copy
   ActiveSheet.ChartObjects("Tagesstatistik").Activate
   ActiveChart.SeriesCollection.Paste _
   Rowcol:=xlColumns, SeriesLabels:=False, _
   CategoryLabels:=True, Replace:=True, NewSeries:=True
   Application.CutCopyMode = True
   With ActiveChart
       .ChartType = xlBarClustered
       .HasLegend = False
       .HasTitle = True
       .ChartTitle.Text = s
       .PlotArea.Interior.ColorIndex = 35
   End With
KopiereDatum
Range("D14").Select
End Sub



Gruß

DieterB


Bild

Beiträge aus den Excel-Beispielen zum Thema " Diagramm !!!!!!!!"