version=1.3.0 vdate=11.09.2014 fname=udf_inset.bas ns=%NAMESPACE% fpath=/vba/functions {{keywords>vba,dictionary,cast,create dictionary,function}} {{description>Diese Funktion erstellt auf verschiedene Arten ein Dictionary. V-%%version%%}} ====== [VBA] inSet() ====== //Diese Funktion dient als IN(),wie man sie in vielen anderen Sprachen kennt. Sie kann aber auch ein in_array() abdecken. // ==Version %%version%% %%vdate%%== {{%%fname%%|Download %%fname%% (V-%%version%%)}} ===== Definition ===== found = inSet(search, value1 [,value2... [,value#]]) found = inSet(search, valueList) Public Function inSet(ByRef iSearch As Variant, ParamArray iItems() As Variant) As Boolean ==== Parameters ==== ***iSearch** Wert der gesucht wird ***%%ParamArray iItems%%*** Werte gegen die geprüft wird. Sind die Werte Arrays, werden die Arrays durchsucht ==== Rückgabewert ==== True oder False. Je nachdem ob der Wert in der Menge ist oder nicht ===== Beispiele ===== debug.print inset(2, 1, 2, 3) ' true debug.print inset(2, array(1, 2, 3)) ' true debug.print inset(2, array(1, 2), 3) ' true debug.print inset(3, array(1, 2), 3) ' true debug.print inset("d", "a,b,c,d,e") ' true ===== Code =====