|
Hallo,
ich verzweifle mittlerweile. Wie viele hier kaum Ahnung von VBA, habe aber versucht mich durch ausprobieren etwas ranzutasten und aus verschieden Codes etwas zusmamen zu basteln.
Ich habe nun einen Code der mir aus einer bestimmten Spalte und Zeilen eine Grafik erstellt. Jedoch ist kriege ich es nicht hin die Y-Variablen zur X-Variablen zu machen. Zumindest was den ersten "Plot" angeht. Außderm würde ich gerne die Y-Variablen jeder neu erstellten Grafik um 3 Spalten nach rechts verschieben, bis in Zeile 12 nichts mehr steht. Vielleicht könnt ihr mir Helfen, ich weiß aber auch das ein Simpler Gedanke manchmal sehr kompliziert ist. Das habe ich bis nun.
Sub Diagramm_neu()
Dim inAnzahl As Integer
Dim chDiagramm As ChartObject
Dim trLinie As Trendline
Dim leLegende As Legend
Dim paZeichnungsflaeche As PlotArea
Application.ScreenUpdating = False
For inAnzahl = 1 To 2
Set chDiagramm = ActiveSheet.ChartObjects.Add(150, 150, 450, 300)
With chDiagramm.Chart
.ChartType = xlXYScatterSmooth
.SeriesCollection.NewSeries
.SeriesCollection(1).XValues = "='Tabelle 1'!R29C5" & inAnzahl + 3 & ":R43C5" & inAnzahl + 3
.SeriesCollection(1).Name = "'Einzelwerte"
.SeriesCollection(2).XValues = "='Tabelle 1'!R31C3:R43C3"
.SeriesCollection(2).Values = "='Tabelle 1'!R29C5:R41C5"
.SeriesCollection(2).Name = "'Mittelwert"
.HasTitle = True
.ChartTitle.Characters.Text = "='Tabelle 1'!R1C3"
.Axes(xlCategory, xlPrimary).HasTitle = True
.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "Konzentration [ ]"
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Area [ ]"
With .SeriesCollection(1)
Set trLinie = .Trendlines.Add(Type:=xlLinear, Forward:=0, Backward:=0, Intercept:=0, DisplayEquation:=True, DisplayRSquared:=True)
trLinie.DataLabel.Top = 214
trLinie.DataLabel.Left = 207
End With
Set leLegende = .Legend
leLegende.Top = 71
leLegende.Left = 69
Set paZeichnungsflaeche = .PlotArea
paZeichnungsflaeche.Width = 412
End With
Next inAnzahl
Application.ScreenUpdating = True
Worksheets("Tabelle 1").Activate
End Sub
|