Grafik-Datenbezüge in Absolutwerte umwandeln
17.09.2004 10:22:59
Werner
ich möchte eine Datei aus einem Workbook in ein neues Workbook kopieren und bei
der Kopie die Bezüge auf die Qelldaten in Absolutwerte umwandeln.
Die Grafik selbst soll eine feste Zeitreihe ausweisen z.B. 09.2003 - 12.2004 und Monate, für die es noch keine Werte gibt, frei lassen. Das wird auch durch die Funktion =NV() erreicht.
Das Makro (steht unten) funktioniert ganz gut, wenn die letzten 4 Monate auf #NV gesetzt werden, aber es bricht ab, wenn die letzten 3 Monate auf #NV gesetzt sind.
Im Blatt "Umsätze" habe ich hierfür die Szenarios "Funktionier" bzw. "Funktioniert nicht" eingerichtet.
Kann jemand den Fehler in seiner Umgebung reproduzieren oder hat jemand eine Idee, woran es liegt (Wetter, Uhrzeit, Strompreis?..)
Erst einmal vielen Dank im Voraus für evtl. Lösungsvorschläge.
Werner
---------------------------------------------------------------
Makro Anfang
---------------------------------------------------------------
Option Explicit
Sub exp_Reichw_Test()
Dim exp_wk1 As Workbook
Dim src_wk1 As Workbook
Dim ser_Cur As Series
Dim rng_Src As Range, _
cht_Exp As Chart, _
iCol As Integer, iRow As Integer, _
vDesc As Variant, vVal As Variant, _
rng_Desc As Range
Set src_wk1 = ThisWorkbook
Set rng_Src = ThisWorkbook.Sheets("Umsaetze").Range("Ums_Daten")
Set exp_wk1 = Workbooks.Add(xlWBATWorksheet)
src_wk1.Charts("Reichweite").Copy after:=exp_wk1.Sheets(1)
Set cht_Exp = exp_wk1.Sheets("Reichweite")
With cht_Exp
For Each ser_Cur In .SeriesCollection
vVal = ser_Cur.Name
ser_Cur.Name = vVal
vVal = ser_Cur.XValues
ser_Cur.XValues = vVal
vVal = ser_Cur.Values
ser_Cur.Values = vVal
Next
End With
End Sub
---------------------------------------------------------------
Makro Ende
---------------------------------------------------------------
Datei-Link
https://www.herber.de/bbs/user/10991.xls
Anzeige