Feldindizes bestimmen, welche die nächste kleinere bzw. größere Zahl beinhalten

[RPP63]

… und um Bildschirmtinte zu sparen:

Sub wenigCode()
Dim low As Byte, high As Byte
low = Application.Match(37, Array(10, 19, 26, 35, 44, 51), 1)
high = low + 1
End Sub

Gruß Ralf

[RPP63]

Und noch ein Hinweis:
Da .Match mit dem dritten Parameter 1 erheblich schneller ist als mit 0 (der für unsortierte Felder gilt und nur bei Übereinstimmung ein Ergebnis liefert), bin ich mir sicher (auch wenn ich Excel nicht programmiert habe  :21: ), dass bei 1 binär gesucht wird.

My two cents,
Ralf

[Lupy]

Hallo und zunächst einmal allen ein herzliches Danke, die mir zu diesem Thema geantwortet haben.
Den Code von Andre werde ich mir am Wochenende genauer anschauen. Ralf, du hast mir genau die
Antwort geliefert, nach der ich gesucht habe. Hätte nicht gedacht, dass so etwas geht.

Für das Forum hier  möchte ich noch eine minimalinvasive Verbesserung posten:

Code:

Sub RPP()
Dim f(1 To 6) As Long
Dim x As Long
Dim low As Byte, high As Byte
x = 19
f(1) = 10
f(2) = 19
f(3) = 26
f(4) = 35
f(5) = 44
f(6) = 51
low = Application.Match(x, f, 1)
high = IIf(f(low) = f(Application.Match(x, f, 1)), low, low + 1)
End Sub

Bei low liefert der Code von Ralf auch genau den Index, wenn der Wert von x genau gleich einem der Feldwerte ist.
Da high von low "abhängig" ist, habe ich für diesen Fall eine Kleinst-Änderung des Codes vorgenommen, um auch solche Fälle abzudecken.

Nochmals vielen Dank Ralf.