Code om record op bovenste rij toe te voegen

[JosEindhoven]

Goede morgen

Ik heb over bijgevoegd bestand al meerdere vragen gesteld.
Hier de volgende.
Hoe krijg ik het voor elkaar dat hij nieuwe records op de bovenste rij invoegt ipv onderaan.
Dit maakt het gemakkelijker in het overzicht in de listbox bij invoer van meerdere data van 1 persoon. De schuifbalk (die wel nodig is) in de listbox gaat namelijk steeds naar boven zodat je niet kunt zien waar je gebleven bent.

 

[AD1957]

Bedoel je dit?

Private Sub Cmd_00_Click()
With Sheets("Proeven").Range("A3")
        .ListObject.ListRows.Add (1)
        .Resize(, 10).Value = Array(T_00.Value, T_01.Value, T_02.Value, T_03.Value, CDate(T_04.Value), _
        T_05.Value, T_06.Value, Chb_00.Caption, T_07.Value, T_08.Value)
    End With
reset
End Sub

 

[JosEindhoven]

Dankjewel Albert, daar heb ik wat aan. Top

Jos