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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen