wie kann man in einen XY-Punktdiagramm die vorhandenen Zellbezüge in absolute Werte umwandeln? Vermutlich nur mit Makro?
Grüße Werner
Option Explicit
Public Sub dQU_Werte_in_DR1()
Dim n$, t$, arrX, arrV
With Sheets("Tabelle4")
t = .[d1].Value
With .ChartObjects(1).Chart
.ChartTitle.Characters.Text = t
With .SeriesCollection(1)
arrX = .XValues
arrV = .Values
n = .Name
.Name = n
.Values = arrV
.XValues = arrX
End With
End With
End With
End Sub
Option Explicit
Public Sub in_dQU_Werte_einf()
Dim n$, t$, arrX, arrV, i As Byte
With Sheets("Tabelle4")
With .ChartObjects(1).Chart
For i = 1 To .SeriesCollection.Count
With .SeriesCollection(i)
arrX = .XValues
arrV = .Values
n = .Name
.Name = n
.Values = arrV
.XValues = arrX
End With
Next
End With
End With
End Sub