Oberflächendiagramm VBA

Function RangeToAddress(Ra As Range) As String RangeToAddress = "='" & Ra.Parent.Name & "'!" & _ "R" & CStr(Ra.Row) & "C" & CStr(Ra.Column) & ":" & _ "R" & CStr(Ra.Rows.Count + Ra.Row - 1) & "C" & CStr(Ra.Column) End Function

Sub Schaltfläche2_BeiKlick() Dim vrng As Range Dim xrng As Range Charts.Add ActiveChart.SeriesCollection.NewSeries ActiveChart.SeriesCollection.NewSeries ActiveChart.SeriesCollection.NewSeries ActiveChart.ChartType = xlSurface For m = 1 To 50 Set vrng = Range(Cells(9 + (m - 1 * 365), 4), Cells(378 + (m - 1 * 365), 4)) ActiveChart.SeriesCollection(m).Values = RangeToAddress(vrng) Set xrng = Range("E" & 9 + (m - 1 * 365), "E" & 365 + (m - 1 * 365)) ActiveChart.SeriesCollection(m).XValues = RangeToAddress(xrng) Next With ActiveChart .HasAxis(xlCategory) = True .HasAxis(xlSeries) = True .HasAxis(xlValue) = True End With ActiveChart.Axes(xlCategory).CategoryType = xlAutomatic ActiveChart.HasLegend = True ActiveChart.Legend.Select Selection.Position = xlBottom End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Schaltfläche2_BeiKlick() Dim vrng As Range Dim xrng As Range Dim cht As Chart Charts.Add ActiveChart.SeriesCollection.NewSeries ActiveChart.SeriesCollection.NewSeries ActiveChart.SeriesCollection.NewSeries ActiveChart.ChartType = xlSurface Sheets("Ausgabe").Select For m = 1 To 50 Set vrng = Range(Cells(9 + (m - 1) * 365, 7), Cells(378 + (m - 1) * 365, 7)) ActiveChart.SeriesCollection(m).Values = "='" & vrng.Parent.Name & "'!" & vrng.Address( _ ReferenceStyle:=xlR1C1) Set xrng = Range(Cells(9 + (m - 1) * 365, 4), Cells(378 + (m - 1) * 365, 4)) ActiveChart.SeriesCollection(m).Values = "='" & vrng.Parent.Name & "'!" & xrng.Address( _ ReferenceStyle:=xlR1C1) Next With ActiveChart .HasAxis(xlCategory) = True .HasAxis(xlSeries) = True .HasAxis(xlValue) = True End With ActiveChart.Axes(xlCategory).CategoryType = xlAutomatic ActiveChart.HasLegend = True ActiveChart.Legend.Select Selection.Position = xlBottom End Sub

Hi
deine Beispieldatei stoppt schon beim in der ersten Zeile, vor abschicken der Beispieldatei bitte testen, ob diese auch richtig funktionert bzw nicht funktioniert (wenn ein Fehler gefunden werden soll)
außerdem arbeitest du nicht mit OPTION EXPLICIT, was immer das Risiko von Tippfehlern in Variablennamen zur Folge hat.
Dazu bitte mal das Lesen und in deine Dateien einarbeiten: http://www.online-excel.de/excel/singsel_vba.php?f=4
zum Fehler:
solltest, wenn du Zellbezüge angibst, immer vollständig referenzieren, also mit Sheet-Angabe.
das macht dich unabhänig davon, welches Sheet gerad aktiv ist.
das gilt auch für Cells innerhalb von Range, auch hier muss der Code lauten "Range(Sheets(1).Cells(..), Sheets(1).Cells(..))"
um sich Schreibarbeit zu sparen, arbeitet man auch hier mit der With-Klammer.
Gruß, Daniel

Hallo Olli,
eine der wesentlichen Empfehlungen bei Programmierungen mit VBA: verwende möglichst keine Select- und Activate-Anweisungen. Diese sind zu 99.99 % aller Fälle nicht erforderlich. Eigentlich nur zu Beginn oder am Ende eines Makros, um ggf. die Startsituation herzustellen oder am Ende, um einen bestimmten Anzeigezustand zu erreichen.
Es ist immer besser mit Objekt-Variablen zu arbeiten, um Eigenschaften Abzufragen/Zuzuweisen oder Methoden anzuwenden.
In deinem Code hast du versucht in den Set-Anweisungen auf Range-Objekte im aktiven Blatt zuzugreifen, obwohl das neu erstellte Diagramm schon das aktive Blatt ist. Da spielt Excel nicht mit.
Num zum Diagramm:
Ein Flächen-Diagramm muss bei allen Datenreihen die gleiche X-Achse haben.
Ein Flächendiagramm erforderdert mindestens 2 Datenreihen. Deshalb hab ich die Typ-Zuweisung hinter die Next-Anweisung verschoben.
Wenn das Diagramm mit der Add-Methode angelegt wird, dann hat es noch keine 50 Datenreihen, deshalb müssen diese in der Schleife angelegt werden, wenn noch welche fehlen.
Die benutzerdefinierte Funktion zum Erzeugen der Bereichsadresse in RC-Schreibweise kann man noch ein wenig vereinfachen. Siehe mein Code.
Nachfolgend der modifizierte Code, der zumindest formal funktioniert.
Du schreibst du willst Daten aus 50 Jahren verarbeiten. Schaltjahre haben aber einen Tag mehr. Gibt es da nicht Probleme mit der Zeilenzahl Pro Jahr, wenn die Datenreihen eingelesen werden?
Alternativ-Vorschlag zur Auswertung:
Erstelle von deinen Daten einen Pivot-Tabellenbericht mit Diagramm
Zeilenfeld: Tag oder eine neue Spalte die das Datum als MM-TT ohne Jahr enthält
Spaltenfeld: Jahr
Datenfeld: Summe Y-Wert
Dann muss du nur noch den Diagramm-Typ ändern.
Die Spalte mit MM-TT kannst du Performel aus den X-Werten berechnen =TEXT(E9;"MM-TT").
Die Schreibweise MM-TT ist erforderlich, damit der Pivotbericht korrekt sortiert wird/werden kann.
Gruß
Franz


Sub Schaltfläche3_BeiKlick()
Dim vrng As Range
Dim xrng As Range
Dim m As Long
Dim objChart As Chart, objWks As Worksheet, objReihe As Series
Set objWks = ActiveSheet
Application.ScreenUpdating = False
Application.Charts.Add
Set objChart = ActiveChart
'Bereich X-Achse kann nur ein Bereich sein
With objWks
Set xrng = .Range(.Cells(9 + (1 - 1) * 365, 4), .Cells(373 + (1 - 1) * 365, 4))
End With
With objChart
For m = 1 To 8
With objWks
Set vrng = .Range(.Cells(9 + (m - 1) * 365, 5), .Cells(373 + (m - 1) * 365, 5))
End With
'Pürfen, ob Reihe m schon vorhanden
If objChart.SeriesCollection.Count

Beliebteste Forumthreads (12 Monate)

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread