Hallo Jan,
eigentlich bestimme ich auch x_min. Der erste Punkt braucht aber nicht die Koordinaten (x_min,y_min) zu haben. x_min bestimme ich nur, um in dem Fall, dass mehrere Punkte als y_Wert y_min haben, den zu wählen, der am weitesten links liegt. Dadurch liegen die Winkel alle im Intervall [0, Pi/2].
Meine Tests ergaben und ergeben stets richtige Ergebnisse.
Der Chart-Befehl greift anscheinend auf weitere Werte auf dem Tabellenblatt zu und erzeugt weitere Datenreihen, u.U. auch aus den um die Minimalwerte reduzierten Werten oder Winken. Dieses Problem habe ich nicht gelöst, sondern bisher nur die 3. Datenreihe einfach gelöscht. In meinen Tests gab es nur diese 3. Datenreihe zusätzlich. Tausche die drittletzte Zeile gegen
For i = .SeriesCollection.Count To 3 Step -1
.SeriesCollection(i).Delete
Next i
Damit werden alle nicht gewünschten Datenreihen gelöscht.
Wenn das nicht funktioniert, schicke mir deine Versuchsdaten, bei denen das nicht klappt.
Die Liste der Koordinaten und ihre farbliche Darstellung sollte aber unabhängig davon das korrekte Resultat liefern.
Rückmeldung erbeten.
Gruß
Holger
|