Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
488to492
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
488to492
488to492
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige