ich versuche alles ,aber ich bekomme es nicht hin.
ich möchte, das er die eingefüge DIAGRAMME (es sind mehrere) alle untereinander positioniert.
habe da unten mein makro, er zeigt mir ein fehler an(siehe Unten)
weiß er mit dem fehler meint?
oder gibt es dafür auch andere methoden?
LG
Sub trendanalyis()
Dim iDiagramm As Long
Dim Top As Double
Dim sht As Worksheet
Worksheets("Trend").Select
ActiveSheet.ChartObjects.Delete
Worksheets("Administration").Select
nrreihenanalyse = Worksheets("Administration").Range("P1000").End(xlUp).Row
nrreihen = Worksheets("Administration").Range("A4").End(xlToRight).Column
For z = 5 To nrreihenanalyse
'For x = 17 To nrreihen
'Cells(z, 16).Select
'Range(Cells(z, 17), Cells(z, nrreihen)).Select
'Range(Cells(3, 17), Cells(4, nrreihen)).Select
'MsgBox hi
Worksheets("Administration").Activate
Set bigRange = Application.Union(Range(Cells(z, 17), Cells(z, nrreihen - 3)), Range(Cells(3, 17) _
_
_
, Cells(4, nrreihen - 3)))
bigRange.Select
MsgBox hallo
Charts.Add
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SetSourceData source:=bigRange, PlotBy:=xlRows
ActiveChart.Location Where:=xlLocationAsObject, Name:="Trend"
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = Sheets("Administration").Cells(z, 16).Value
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False
End With
ActiveChart.PlotArea.Select
With Selection.Border
.ColorIndex = 16
.Weight = xlThin
.LineStyle = xlContinuous
End With
Selection.Interior.ColorIndex = xlNone
ActiveChart.ChartArea.Select
ActiveChart.HasLegend = False
ActiveChart.ApplyDataLabels AutoText:=True, LegendKey:=False, _
HasLeaderLines:=False, ShowSeriesName:=False, ShowCategoryName:=False, _
ShowValue:=True, ShowPercentage:=False, ShowBubbleSize:=False
Set sht = Sheets("Trend")
With sht
iDiagramm = .ChartObjects.Count
With .ChartObjects(iDiagramm - 1) HIER ZEIG ER MIR EIN FEHLER AN: Efhler 1004:Die _
Methode 'ChartObjects' für das Objekt '_Worksheet' ist fehlgeschlagen
Top = .Top + .Height
End With
.ChartObjects(iDiagramm).Top = Top
End With
'Next
Next
End Sub