ich versuche geade ein VBA-Makro zu erstellen welches mir
Hier soweit der vorhandene Code:
Sub GrafikenErstellen()
Dim wks As Worksheet, wks2 As Worksheet
Dim cht As Chart
Dim iRow As Integer
Dim r1 As Range, r2 As Range, myMultiAreaRange As Range
Set wks = ActiveSheet
iCol = 2
Do Until IsEmpty(wks.Cells(1, iCol))
Set cht = Charts.Add
With cht
.ChartType = xlXYScatterLinesNoMarkers
' Baustelle 1: Immer Spalte A vs Spalte iCol plotten
' Lösung union, multirange? --> myMultiAreaRange = Union(r1, r2)
.SetSourceData _
Source:=wks.Range(wks.Cells(1, 1), wks.Cells(200, iCol)), _
PlotBy:=xlColumns
.HasTitle = True
.ChartTitle.Characters.Text = wks.Cells(1, iCol).Value
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False
.Axes(xlValue).HasMajorGridlines = False
.HasLegend = False
.Axes(xlCategory).HasMajorGridlines = True
.Axes(xlCategory).HasMinorGridlines = True
.Axes(xlCategory).MinorGridlines.Select
With Selection.Border
.ColorIndex = 36
.Weight = xlHairline
.LineStyle = xlContinuous
End With
.Location Where:=xlLocationAsObject, Name:="Tabelle2"
'.Location Where:=xlLocationAsNewSheet
Set wks2 = ActiveSheet
' Baustelle 2: Platzieren und Skalierung der Diagramme
'ActiveSheet.Shapes(cht).IncrementLeft -33#
End With
iCol = iCol + 1
Loop
End Sub
Probleme habe ich hier vorallem mit den beiden ausgezeichneten Baustellen.
Bausstelle 1: Zur Zeit wird immer der komplette Range von Spalte_A:Spalte_iCol angezeigt, sprich, bei Spalte iCol gibt es dann auch iCol dargestellter Reihen. Hier soll aber wie gesagt nur Spalte A gegen Spalte B oder Spalte C oder ... Spalte iCol geplottet werden.
Bausstelle 2: Die Platzierung und Skalierung der Diagramme funktioniert leider noch überhaupt nicht.
Besten Dank
Steph