Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Diagramme mit VBA in einem Chart

Diagramme mit VBA in einem Chart
27.09.2004 19:14:26
Piotr
Hallo Zusammen,
wer kann mir helfen. Ist bereits mein zweiter Versuch in diesem Forum zu diesem herausforderdem Thema. Ich habe mehrere worksheets mit unterschiedlichen Namen. An einer definierten gleichen Stelle stehen meine xy-werte. Ich möchte nun die xy-geraden in einem Diagramm darstellen. Bis jetzt habe ich xy-diagramm erstellt und jede gerade manuel hinzugefügt. Bei ca 50 xy-geraden hört der Spass auf, deshalb dachte ich an VB. Habe somit ein Makro erstellt und wollte es dann ändern, doch bis jetzt ohne Erfolg. Wer könnte mir hier weiter helfen. Am besten mit einem laufendem Code.
Vielen Dank
Piotr
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Diagramme mit VBA in einem Chart
K.Rola
Hallo,
lad doch mal eine Beispieldatei, am besten mit Beschreibung, hoch.
Gruß K.Rola
AW: Diagramme mit VBA in einem Chart
piotr
Hallo K.Rola
anbei derzeitiger Code. Vieleicht können Sie mir weiterhelfen?
danke im Voraus, piotr

Sub nicht_bearbeiten()
' nicht_bearbeiten Makro
' Makro am 09.09.2004 von piotr aufgezeichnet
Sheets("N80").Select
Charts.Add
ActiveChart.ChartType = xlXYScatterSmooth
ActiveChart.SetSourceData Source:=Sheets("N80").Range("D21"), PlotBy:= _
xlRows
ActiveChart.SeriesCollection(1).XValues = "='N80'!R3C3:R4C3"
ActiveChart.SeriesCollection(1).Values = "='N80'!R3C4:R4C4"
ActiveChart.SeriesCollection(1).Name = "='N80'!R1C2:R1C4"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(2).XValues = "='N81'!R3C3:R4C3"
ActiveChart.SeriesCollection(2).Values = "='N81'!R3C4:R4C4"
ActiveChart.SeriesCollection(2).Name = "='N81'!R1C2:R1C4"
For i = 83 To 85
ActiveChart.SeriesCollection.NewSeries
Sheets("N" & i).Select
ActiveChart.SeriesCollection(i - 80).XValues = "='N" & i & "'!R3C3:R4C3"
ActiveChart.SeriesCollection(i - 80).Values = "='N" & i & "'!R3C4:R4C4"
ActiveChart.SeriesCollection(i - 80).Name = "='N" & i & "'!R1C2:R1C4"
Next i
ActiveChart.Location Where:=xlLocationAsNewSheet
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = "N 80"
.Axes(xlCategory, xlPrimary).HasTitle = True
.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "x-achse"
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "y-achse"
End With
Charts.Add
End Sub

Anzeige
AW: Diagramme mit VBA in einem Chart
piotr
Hallo K.Rola
Danke für die Antwort, aber als Anfänger weiß ich nicht was damit gemeint ist
Gruß, Piotr
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige