Renevankooten
Nieuwe gebruiker
- Lid geworden
- 21 sep 2011
- Berichten
- 3
Hallo,
ik wil uit een getallenreeks via VBA een code maken om het op 1 na kleinste getal te plaatsen op het werkblad, de code voor het kleinste getal heb ik wel, maar het op 1 na kleinste getal vind ik lastig om daar een code voor te verzinnen,
kan iemand mij hier mee helpen, de code voor het kleinste getal is.
ik wil uit een getallenreeks via VBA een code maken om het op 1 na kleinste getal te plaatsen op het werkblad, de code voor het kleinste getal heb ik wel, maar het op 1 na kleinste getal vind ik lastig om daar een code voor te verzinnen,
kan iemand mij hier mee helpen, de code voor het kleinste getal is.
Code:
Sub Oef_2_3()
'Declareren van variabelen
Dim i As Integer
Dim Kleinste As Integer
'Maak Kleinste gelijk aan het eerste getal
Kleinste = Cells(2, 1)
'Doorloop de rest van de getallen
For i = 3 To 11
If Cells(i, 1) < Kleinste Then
Kleinste = Cells(i, 1)
End If
Next
'Presenteer de resultaten
Cells(5, 5) = Kleinste
End Sub
Laatst bewerkt door een moderator: