'/** ' * Prüft ob ein Wert in einem Array vorhanden ist ' * http://wiki.yaslaw.info/wikka/VbVbaArrayFunctions#inArray ' * @param Array ' * @param Gesuchter Wert ' * @return Boolean ' * @example test_vorhanden = inArray(myArray, "test") '*/ Private Function inArray(ByRef iArray As Variant, ByVal iValue As Variant) As Boolean Dim i As Long On Error GoTo Err_Handler 'Falls iArray kein initialisierter Array ist, gehts zur Fehlerbahndlung For i = LBound(iArray) To UBound(iArray) inArray = (iValue = iArray(i)) If inArray Then GoTo Exit_Handler Next i Exit_Handler: Exit Function Err_Handler: 'Array ist nicht initialisiert. Somit gibts kein Treffer inArray = False Resume Exit_Handler End Function