Schnittpunkte verschiedener Art ermitteln
06.11.2017 23:13:47
Bernd
ich habe eine Frage zu VBA und hoffe, dass ich es vernünftig erkläre und ihr mir bitte dabei helfen könnt.
Zunächst ein Bild:
Auf diesem seht ihr eine grüne, eine gelbe und eine rote Linie.
Jede Linie habe ich mit Zahlenwerten als Exceltabelle.
Grüne Linie ab Zeile H4 abwärts.
Gelbe Linie ab Zeile I4 abwärts.
Rote Linie ab Zeile J4 abwärts.
Ich möchte nun per VBA bestimmen, wann die Grüne Linie über der Gelben Linie ist, und die Gelbe Linie über der Roten Linie. Dies habe ich mit einer IF Funktion hinbekommen.
Ich möchte aber auch wissen, seit wann dieser Zustand herrscht und dafür gibt es zwei Varianten, die ich auf dem Bild markiert habe.
Im blauen Quadrat kreuzen sich die gelbe und grüne Linie unter der roten, danach kreuzen beide die rote Linie nacheinander nach oben. Somit ist meine Bedingung von oben erfüllt.
Im blauen Kreis sind die gelbe und grüne Linie bereits über der roten Linie und durch die Kreuzung von gelb und grün entsteht meine oben beschriebene Bedingung.
Nun möchte ich in eine Zelle schreiben, "Bedingung erfüllt, seit x Tagen"
In VBA habe ich es so versucht:
'Definition Long aktiv Signal
If Range("H4") > Range("I4") And Range("I4") > Range("J4") Then
Do Until (Cells(aktZeile, 8) Allerdings bekomme ich diese zwei unterschiedlichen Fälle nicht in einen "IF-Fall".
Könnt ihr mir bitte dabei helfen?
Ich hoffe es kam klar rüber...
Vielen Dank vorab für Eure Mithilfe!