AW: Abwärtstrend ausgeben
27.07.2008 15:19:33
ChristianM
hier 'ne leicht angepassste Version. Die Spalte Q (entspricht 17) kannst du jetzt oben festlegen. Ebenso die erste Zeile. Als weiteres wird jetzt noch die Zeilen-Nr. des Top-Wertes ausgegeben, von dem aus der Abwärtstrend startet.
Aber seltsame Werte kann ich nicht feststellen. Schau dir in deinem Bsp mal die Werte von Zeile 3400 bis Zeile 4100 in nem Diagramm an. Genau diese Senke wird von meinem Code als größter Abwärstrend ausgewiesen.
Gib mir Bescheid, wie du damit parat kommst,
Christian
Sub foo()
Dim i&, j&, lngLR&, lngDwn&
Dim dMin#, dMinRel#, dDelta#
Const COL As Long = 17 'relevante Spalte
Const FRW As Long = 2 'erste Zeile
With ActiveSheet
lngLR = .Cells(.Rows.Count, COL).End(xlUp).Row
For i = FRW + 1 To lngLR
If .Cells(i, COL) = .Cells(i - 1, COL) Or j = lngLR
If .Cells(j, COL)