het op één na kleinste getal uit een getallen reeks halen

[Renevankooten]

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.

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

 

[wampier]

If Cells(i, 1) < Kleinste Then
voorlaatste = kleinste
Kleinste = Cells(i, 1)
End If
Next

 

[Warme bakkertje]

Sub tst()
    Cells(5, 5) = WorksheetFunction.Small(Range("A2:A11"), 2)
End Sub

 

[Renevankooten]

Bedankt voor je hulp, maar het werkt nog niet.

If Cells(i, 1) < Kleinste Then
voorlaatste = kleinste
Kleinste = Cells(i, 1)
End If
Next

Ik krijg nu een foutmelding, een compileerfout.
een variabele in niet gedefinieerd, hij blijft hangen op voorlaatste

 

[wampier]

Die moet je natuurlijk wel even defineeren natuurlijk Ik neem aan dat je dat met de rest ook gedaan hebt?

 

[Mark xl]

Waarom niet gewoon Warme bakkertje's suggestie als formule

oftewel "=KLEINSTE(A3:A11;2)"

 

[Renevankooten]

Dank allemaal, probleem is opgelost!
ik denk dat ik een beetje heb zitten slapen