De onderstaande code werkt. Hij stept van 10 naar 5 en geeft een result mits er result is anders geeft ie niets. Nu zit ik met het probleem dat ik nu ook een set waardes moet uitproberen maar dan moet hij er eentje skippen. Ik wil bijvoorbeeld alleen 10 9 7 6 proberen. Ik denk zelf dat ik die waardes dan in een array moet zetten en dan er door heen loopen? Dan is een bijkomend probleem dat ik een dergelijke zelfde functie ook moet hebben voor waardes die niet geen int zijn. Ik heb al zitten kloten met een array en een for each loop, ik kom er niet meer uit. iemand enige id hoe ik dit aan moet gaan pakken? een duwtje de goede kant uit zou fijn zijn.
code:
1
2
3
4
5
6
7
8
9
| Dim obTry, number
number = 10
For i = number To 5 Step -1
Set obTry = CreateObject("Object.Object." & i)
If IsObject(obTry) Then
result = i
Exit For
End If
Next |
[ Voor 4% gewijzigd door iH8 op 12-01-2005 17:28 ]
Aunt bunny is coming to get me!