Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 19:29:30
24.04.2024 18:49:56
24.04.2024 17:19:09
Anzeige
Archiv - Navigation
340to344
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
340to344
340to344
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Diagramm !!!!!!!!

Diagramm !!!!!!!!
25.11.2003 18:09:13
Norb
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


1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Diagramm !!!!!!!!
25.11.2003 18:48:40
DieterB
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
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige