viele variablen: minimum finden

[pglw]

Hi,

ich habe eine ganze Menge an Variablen (Integer). Wie kann ich feststellen, welche den kleinsten Wert hat?

Bsp:
Var 1 =5
Var2 =10
Var 3 =15

Suche jetzt sowas wie Min(Var1,Var2,Var3)=5

Grüße
pglw

 

[Philipp9494]

Hi..

Mach ein array und dann:

Dim Zahlen() As Integer
dim min_z as integer
'Array füllen.....

'.....
min_z = zahlen (0)
for i = 1 to ubound(Zahlen)
if Zahlen(i) < min_z Then min_z = Zahlen(i)
next

mfg

Philipp9494