gibt es ActiveSeriesCollection ? Globale Variable
Jörn
Da das Diagramm zur Laufzeit erzeugt wird, habe ich eine neue Klasse erzeugt.
Public WithEvents Diagramm As Chart
Private Sub Diagramm_Select _
(ByVal ElementID As Long, ByVal Arg1 As Long, ByVal Arg2 As Long)
If ElementID = xlSeries Then
' ElementID=3=xlSeries für Datenpunkte
' => Arg1 = SeriesIndex Nr der Auflistung
' => Arg2 = PointIndex wenn -1 alle Punkte der Auflistung ausgewählt
' MsgBox "Datenpunkt " & Arg1
Sheets("Tabelle1").Range("A1") = Arg1 ' als Zwischenspeicher
' MsgBox ThisWorkbook.ActiveChart.SeriesCollection(Arg1).Name
Usr_Bild.Show
End If
End Sub
Das ganze funktioniert.
Wie kann ich die Information, welche Serie ausgewählt ist ín die User-Form übergeben?
Zur Zeit lasse ich den Wert in eine Tabelle schreiben.
Sheets("Tabelle1").Range("A1") = Arg1
und lese den Wert in der User-Form wieder aus...
MfG
Jörn