Hallo zusammen,
das Ziel meines Makros ist das bilden von Mittelwerten einer Hystereseschleife. Das Makro habe ich in einem Forum gefunden, was auch mit den dort angegebenen Werten einwandfrei funktioniert. Wenn ich das ganze mit meinen Daten durchlaufen lasse bekomme ich eine Fehlermeldung bei der Find-Methode: Objektvariable oder With-Blockvariable nicht festgelegt.
Anbei ein Ausschnitt aus dem veränderten Code, der in der fett markierten Zeile den Fehler auswirft.
Vielen Dank im Voraus für eure Hilfe!
Function Hysterese(RngWegKraft As Range)
'RngWegKraft ist ein Bereich mit zwei Spalten: Strom VMF
'mit aufsteigendem Index fällt der Strom zunächst von ca. 1,2 auf ca. -1,2 und steigt dann wieder bis ca. 1,2.
Dim MinA As Double 'Min Strom
Dim iMinA As Long 'Index Min Strom
Dim OKL As Variant 'Obere Kennlinie(A, Vs)
Dim UKL As Variant 'Untere Kennlinie(A, Vs)
Dim Hys As Variant 'Hysterese(A, Vs)
Dim i As Long, j As Long, n As Long, m As Long 'Indexe
'Minimum finden und die Daten in Obere Kennlinie und Untere Kennlinie aufteilen
MinA = Application.WorksheetFunction.Min(RngWegKraft.Columns(1))
iMinA = RngWegKraft.Columns(1).Find(MinA, , xlValues, xlWhole).Row - RngWegKraft.Row + 1
OKL = RngWegKraft.Resize(iMinA, 2).Value
UKL = RngWegKraft.Offset(iMinA - 1, 0).Resize(RngWegKraft.Rows.Count - iMinA + 1, 2).Value