Dim oRange As Range
Dim Zeile As Long
Dim Spalte As Long
Dim I As Integer
Application.DisplayAlerts = False
Spalte = Worksheets("Salden").UsedRange.SpecialCells(xlCellTypeLastCell).Column
Zeile = Worksheets("Salden").UsedRange.SpecialCells(xlCellTypeLastCell).Row
For I = 2 To Zeile
Worksheets("Salden").Select
Set oRange = Union(Range(Cells(1, 1), Cells(1, Spalte)), Range(Cells(I, 1), Cells(I, Spalte)))
Charts.Add
With ActiveChart
.SetSourceData oRange, xlColumn
.name = Worksheets("Salden").Cells(I, 2)
'usw
End With
Next I
Application.DisplayAlerts = True
End Sub
iCH VERSTEHE NICHT WIE ICH JETZT REINSCHREIBEN SOLL DAS ER ALS rEIHE e3 NEHMEN SOLL UND ALS dATENQUELLE f1.av2 ALS FESTE ADRESSIERUNG; SPRICH ER SOLL IMMER f1.aV2 NEHMEN UND dIE BESCHRIFTUNG f3.aV3 NEHMEN: ICH HOOFE ES KANN MIR JEMAND HELFEN: dANKE IM VORAUS