MyMax - wo liegt der Hund begraben? Bitte um Input
12.08.2014 08:50:43
Thorben
ich habe hier folgende Funktion:
Function MyMax(rngK As Range, vntK, rngValues As Range)
Dim iStart As Long, iEnde As Long, i As Long
iStart = Application.Match(vntK, rngK, 0)
iEnde = iStart + WorksheetFunction.CountIf(rngK, vntK) - 1
MyMax = WorksheetFunction.Max(Range(rngValues(iStart, 1), rngValues(iEnde, 1)))
End Function
Diese Rufe ich in meiner Mappe folgendermaßen auf:
Jetzt habe ich noch folgende schreibweise dieser Formel:
Diese wollte ich bevorzugen da etwas schneller und weniger zickig
bei anschließendem Value = Value oder Clear.Contents
Letztere gibt mir aber bei 56 von 809 Berechnungen falsche Werte zurück!
Kann mir jemand sagen warum?
In angehängter Datei I bis K runterkopieren und dann guckt euch die Unterschiede mal an.
https://www.herber.de/bbs/user/92033.xlsm
Ich kann es nicht erklären!
Schnellere, bessere Lösungen, gerne auch VBA only, sind herzlich willkommen!
Besten Dank schon mal im Voraus
MfG
Thorben