Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
620to624
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
620to624
620to624
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

aktuelle X- und Y-Werte einer Datenreihe auslesen

aktuelle X- und Y-Werte einer Datenreihe auslesen
14.06.2005 15:05:20
Marco
Hallo zusammen!
Ich möchte beim Auslesen eines Streu-Diagramms die aktuellen Werte der Punkte (X und Y) auslesen und jeweils einer Variablen übergeben. Mit .SeriesCollection(1).XValues.Value funktioniert es nicht. Hat jemand eine Lösung parat?
Danke im Voraus,
Marco

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: aktuelle X- und Y-Werte einer Datenreihe auslesen
14.06.2005 16:14:59
Nepumuk
Hallo Marco,
klar funktioniert das. Über die GetChartElement - Methode kannst du doch bestimmen, welcher Wert angeklickt wurde.
Gruß
Nepumuk
AW: aktuelle X- und Y-Werte einer Datenreihe auslesen
15.06.2005 11:47:26
Marco
Hallo Nepumuk!
GetChartElement gibt mir als X-,Y-Bezug die relative Pixelposition des Punkts zurück und nicht die XValues und Values-Werte der Datenreihe. Aber wenn du so davon überzeugt bist, dann wäre ein Beispiel in deinem Posting angebracht gewesen. ;-)
Gruß, Marco
AW: aktuelle X- und Y-Werte einer Datenreihe auslesen
18.06.2005 19:47:36
Nepumuk
Hallo Marco,
hat etwas gedauert, hatte einen Headcrash. Mal ein Beispiel für ein Diagrammblatt.
Option Explicit

Private Sub Chart_MouseDown(ByVal Button As Long, ByVal Shift As Long, _
        ByVal x As Long, ByVal y As Long)

    Dim IDNum As Long, a As Long, b As Long, arrX, arrY, X_Wert, Y_Wert
    Dim sc As Series
    If Button = 1 Then
        Me.GetChartElement x, y, IDNum, a, b
        If IDNum = xlSeries Then
            Set sc = Me.SeriesCollection(a)
            arrX = sc.XValues
            arrY = sc.Values
            X_Wert = arrX(b)
            Y_Wert = arrY(b)
            Me.Deselect
            MsgBox "X= " & X_Wert & " Y= " & Y_Wert
        End If
    End If
End Sub

Gruß
Nepumuk
Anzeige

301 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige