|
Hallo,
ich habe mir ain Makro geschrieben in dem ich die Datenbereiche von Diagrammen via Makro ändere. Ich habe leider nur das Problem, dass Excel regelmäßig mitten in der Schleife abstürzt.
Hat jemand auch die Erfahrung gemacht? Oder was ist verkehrt in meinem Makro?
Vielen Dank im Voraus
Schöne Grüße, Matthias
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
|