hab es endlich geschafft ein Diagramm zu erstellen der je nach Zeilenanzahl die Achsen vergrößert bzw verkleinert.
erst mal den Code:
-------------------------------------------------------------------
Sub DiagrammErstellen()
Dim Dia As ChartObject
Dim s As String
Dim i As Integer
s = ActiveSheet.Name
ActiveSheet.ChartObjects.Delete
Set Dia = ActiveSheet.ChartObjects.Add _
(15, 75, 400, 250)
Dia.Name = "Umsätze April"
i = ActiveSheet.Range("IF2").End(xlDown).Row
Range("IF2:II" & i).Copy
ActiveSheet.ChartObjects("Umsätze April").Activate
ActiveChart.SeriesCollection.Paste _
Rowcol:=xlColumns, SeriesLabels:=False, _
CategoryLabels:=True, Replace:=True, NewSeries:=True
Application.CutCopyMode = False
With ActiveChart
.ChartType = xlLineMarkers
.HasLegend = False
.HasTitle = True
.ChartTitle = s
End With
Range("A1").Select
End Sub
------------------------------------------------------------
mein Problem ist nun folgendes, hier zeichne ich drei Spalten in das Diagramm nun will ich aber das die erste Spalte gezeichnet wird und als zweites die erste Spalte plus zweite Spalte ( hier im beispiel IF ist Aufzählung von 1 bis x, als erstes soll IG und als zweites IG+IH gezeichnet werden, II soll raus)
ich hoffe ich hab meine Frage zum Ausdruck bringen können
Danke euch im voraus für eure Mühen
Grüße
Ayhan