Sub
Bezuege_1Spalte()
Dim
ForMel
As
String
Dim
j
As
Integer
For
j = 1
To
ActiveChart.SeriesCollection.Count
ActiveChart.SeriesCollection(j).
Select
ForMel = ActiveChart.SeriesCollection(j).Formula
ForMel = Replace(ForMel,
"$F$"
,
"$G$"
)
ForMel = Replace(ForMel,
"$K$"
,
"$L$"
)
ForMel = Replace(ForMel,
"$P$"
,
"$Q$"
)
ForMel = Replace(ForMel,
"$U$"
,
"$V$"
)
ForMel = Replace(ForMel,
"$Z$"
,
"$AA$"
)
ForMel = Replace(ForMel,
"$AE$"
,
"$AF$"
)
ForMel = Replace(ForMel,
"$AJ$"
,
"$AK$"
)
ActiveChart.SeriesCollection(j).Formula = ForMel
Next
j
End
Sub