Datenreihen-Beschriftung mit anderen Werten
14.10.2003 14:25:42
Christoph
ich möchte in einem Balken-Diagramm die Beschriftung der Datenreihen ändern, statt der absoluten Zahlen sollen Prozentwerte die Balken beschriften. Da ich in Excel dafür keine Option gefunden habe, dacht ich mir, mach´s mit VBA und änder die Datalabel.Caption der einzelnen Punkte der Datenreihen. Hab´s dann mal mit folgendem Code versucht:
intCtr = 1
' Alle Datenpunkte in gewählter Datenreihe bearbeiten
For Each pt In Selection.Points
' nur wenn Zähler noch im Bereich des rngBereich-Array ist
If intCtr <= UBound(rngBereich.Value) Then
varWert = rngBereich.Value(intCtr, 1)
If IsEmpty(varWert) = False Then
pt.HasDataLabel = True
pt.DataLabel.Text = varWert
pt.DataLabel.NumberFormat = rngBereich.Cells(intCtr).NumberFormat
Else
' bei leerer Zelle keine Datenbeschriftung
pt.HasDataLabel = False
End If
End If
' Zähler erhöhen
intCtr = intCtr + 1
Next pt
rngBereich ist der Array, in dem meine Prozent-Werte stehen. Die Werte werden auch übernommen, nur sind sie falsch formatiert, aus "-4,7%" wird "-0.04698989". Ich habe hier wohl ein Problem mit der deutsch / englischen Zahlendarstellung. Die Werte mit Format() zu übernehmen brachte auch kein Erfolg. Hat hier jmd einen Tipp für mich? Oder gibt´s überhaupt eine einfachere Lösung für das Problem?
Im voraus vielen Dank für die Hilfe
Gruss
Christoph