Hallo an alle VBA'ler!
Habe hier ein mittelschweres Problem. Das Modul soll Diagramme mit Daten füllen. Nach Start des Moduls kommt oben gennanter Fehler. Die Msgbox habe ich eingefügt, um zu sehen, bei welchem Diagramm er aussteigt. Das ist aber unterschiedlich. Manchmal läuft es auch ohne Probleme durch...
Vielleicht könnt ihr mir ja weiterhelfen (die Variable Region ist definiert):
Sub Charts_SetSource()
Dim i As Integer
Dim chtchart As Chart
Dim chartrange As Variant
chartrange = Array("D17:D20", "D22:D25", "D27:D30", "D32:D35", "D37:D40", "D42:D45", "D47:D50", _
"D52:D55", "D57:D60", "D62:D65", "D67:D70", "D72:D75", "D77:D80", "D82:D85", "D87:D90", "D92:D95", _
"D97:D100", "N18:N25", "D102:D105")
For i = 1 To 19
Set chtchart = Sheets("charts_" & Region).ChartObjects(i).Chart
With chtchart
.SetSourceData Source:=Sheets(Region).Range(chartrange(i - 1))
.SeriesCollection(1).Name = "% from Overall"
End With
Set chtchart = Nothing
MsgBox i
Next i
End Sub
Vielen Dank schonmal! |