APK Formulier

[mvdvlist]

Beste medeforummers,

een vraag, die voor jullie misschien eenvoudig is.

Ik heb, met jullie hulp, een APK formulier in elkaar geknutseld.
Dit werkt prima, maar in textbox12 zou ik graag het resultaat willen zien, wat in de listbox wel te zien is, namelijk
het kenteken van de auto die het eerst weer aan de beurt is. Dit kenteken heb ik verkregen middels de formule in kolom L van het APKBLAD.
Overigens werkt deze formule alleen op deze manier in een tabel. Gewoon ontdekt door te proberen...
Misschien allemaal wat omslachtig, maar het resultaat in VBA en de listbox is prachtig.

Kortom: Ik zou graag willen dat het eerste kenteken dat aan de beurt is, altijd wordt gedisplayed in het Voorblad in b.v. cel G3 en in textbox12, zodat de heren monteurs altijd direct zien welke auto het eerst aan de beurt is. In de andere rijen wordt namelijk "ONWAAR" weergegeven, en in de listbox een 0.

Met vriendelijk dank,

Maarten

[VenA]

Waarom sorteer je de tabel niet op datum?

Private Sub UserForm_Initialize()
 TextBox7.List = Split("Ja Nee")
  With Sheets("APKBLAD").ListObjects(1)
    .Range.Sort .Range.Cells(1, 9), 1, , , , , , xlYes
    ListBox1.List = .DataBodyRange.Value
  End With
  TextBox12 = ListBox1.List(1, 0)
End Sub

[mvdvlist]

Hoe eenvoudig kan het zijn...
En in cel G3 in het Voorblad de simpele verwijzing =APKBLAD!L2

Grandioos!!

Weer iets geleerd. Nu nog leren logisch te denken, maar dat heeft wat tijd nodig op mijn leeftijd...

Opa Maarten