IsInArray Funktion VBA

Question

Ich fand eine Funktion, die mir ein wahres/falsches Ergebnis zurückgibt, wenn eine bestimmte Zeichenfolge, Nummer oder ein Datum in einem Array ist. Ich änderte es leicht, so dass es mir stattdessen eine Zahl gibt (wenn der Wert im Array ist, gibt es mir die Koordinate, sonst gibt es mir -1).

Public Function IsInArray2(DateToBeFound As Date, arr As Variant) As Long 
Dim position As Long 
IsInArray2 = -1 

For position = LBound(arr, 1) To UBound(arr, 1) 
    If arr(position) = DateToBeFound Then 
     IsInArray2 = position 
     Exit For 
    End If 
Next 

End Function 

Ich versuche diese Funktion zu verwenden, um zu überprüfen, ob ein Datum in einem Array ist. Wenn ja, kann ich die Koordinate für weitere Berechnungen in meinem Code verwenden.

Problem: Aus irgendeinem Grund bin ich immer und Fehler (Index außerhalb des Bereichs) in der Zeile:

If arr(position) = DateToBeFound Then 

ich bereits versucht, das Array-Referenz zu ändern, das Datum zu Nummer zu ändern, um Schnur, und versuchte Redim das Array in Bezug auf die maximale Anzahl der Elemente, die es hat, immer noch, der Fehler besteht weiterhin.

Irgendwelche Ideen?

Answer 1

Wenn Sie direkt auf einem Blatt aus einem Bereich ein Array laden:

d.h Arr=Sheets(1).Range("A1:B2").Value

das Array in zwei Dimensionen ist!

Sie müssen also verwenden! ;)

Answer 2

"vertical range" (mehr als eine Zeile) resultiert in 2D-Array, aber For Each Schleife verwendet werden kann (nicht getestet):

Public Function IndexOf(arr, value) As Long 
    Dim v: IndexOf = 0   
    For Each v in arr 
     If v = value Then Exit For 
     IndexOf = IndexOf + 1 
    Next 
    IndexOf = -1 ' not found 
End Function 

Für nicht-Datum oder Währungstypen: