"höchsten"Wendepunkt finden
02.06.2005 13:44:24
Bob
Für die Auswertung von Ganganalyse Kurven habe ich ein Excel Makro vorliegen, dass aus einer Ergebnistabelle bestimmte MAX/MIN spaltenweise ausliest und die jeweilige Zeilennummer übergibt.
Bei den Kurven die mehrere Wendepunkte aufweisen, funktioniert dies jedoch nicht.Es interessiert der Wendepunkt mit der größten Y-Komponente. Ausgegeben wird aber der letzte,meist kleinere Wendepunkt
hier die Funktion:
'Sucht Max, wenn es keinen Wendepunkt gibt, wird null ausgegeben
Function areaMax2(ByVal row1, row2, col As Integer)
Dim maxval1, maxval2 As Single
Dim row, maxrow As Integer
Dim maxflag As Boolean
Dim returnwert As Integer
For row = row1 To (row2 - 1)
maxval2 = Tabelle3.Cells(row, col)
maxval1 = Tabelle3.Cells(row + 1, col)
If maxval1 > maxval2 Then
maxflag = True
maxrow = row + 1
End If
Next row
If ((maxflag = True) And (maxrow <> row2) And (maxrow <> row1)) Then
returnwert = maxrow
Else
returnwert = 106 'Zeile ist leer->Ausgabe null
End If
areaMax2 = returnwert 'Rückgabe Zeilennummer
End Function
vielleicht hat ja jemand ne Idee
Danke schonmal
Bob