kolla variablar?

Det är mycket enklare om du har saker och ting i arrayer.

equal = false
for i = 0 to ubound(teams)
for j = i + 1 to ubound(teams)
if teams(i) = teams(j) then
   equal = true
   exit for
end if
next
if equal then exit for 
next

Strunta i LarsG's variant, och gör en GIGANTISK If-sats istället. Tänk vad kul du kommer få när du skriver den

SPiN>> med tanke på att det kan vara 14 lag så....

LarsG>> Det är viktigt att jag behåller lagnummren i den ordning som dem är inskrivna....hur skulle jag kunna lägga ihop dem till en array utan att förstöra den ordningen ??

jag såg denna i documentationen:

Dim MyString
Dim MyArray(3)
MyArray(0) = "Mr."
MyArray(1) = "John "
MyArray(2) = "Doe "
MyArray(3) = "III"
MyString = Join(MyArray) ' MyString contains "Mr. John Doe III".

jag ska testa lite med den