listbox laden van Z naar A

[Schipper1994]

Hallo,

is het mogelijk om een listbox alfabetisch te laden, of net niet. ik zou deze net andersom willen laden.
mijn list box word van een tabel gehaald.

(mijne is numeriek)

 

[AccessGuru]

Bar weinig informatie, maar natuurlijk kan dat. Hangt er vanaf hoe je de lijstwaarden aanbiedt.

 

[Schipper1994]

in bijlage vind u wat ik zoek.

ik wil mijn listbox andersom dus.

de 4 bovenaan(laatst toegevoegd), de 1 onderaan(eerst toegevoegd).

 

[Pagadder]

Zoiets?

 

[JEC.]

Ook een optie

Private Sub UserForm_Initialize()
 Application.ScreenUpdating = False
 With Sheets(1).ListObjects(1).DataBodyRange
   .Sort .Cells(2, 1), 2, , , , , , 1
    ListBox1.List = .Value
   .Sort .Cells(2, 1), 1, , , , , , 1
 End With
End Sub

 

[Schipper1994]

Pagadder, bedankt.

ik heb jou manier toegepast, zonder de checkbox knop dan wel.
maar zo wou ik het inderdaad..

toppie. dank u wel

 

[snb]

Als je wil automatiseren gebruik je de suggestie van JVeer.

 

[Schipper1994]

SNB,

ik heb nu die van Pagadder gebruikt, deze geplaatst bij usrform_activate, en het werkt ook hoe ik het wil dus voor mij is het best zo.
die van Jveer snap ik niet helemaal.

 

[HSV]

Wel vreemd om op de tweede cel in de databodyrange te sorteren en dan met header op xlyes.
Dat het werkt verbaast me.

Ik zou eerder dit schrijven:

With Sheets(1).ListObjects(1).range
 .sort, .cells(1),,,,,,1

 

[Schipper1994]

zo heb ik hem nu staan in men eigen bestand dan.

werkt perfect.

 

[JEC.]

Het gaat om de kolom waarin de cel zich bevindt, al ga je voor cells(5,1) werkt het ook. De header op xlyes gaat uit van de eerste rij van de aangegeven range.
Ik moet zeggen dat ik persoonlijk ook altijd de eerste cel van de range pak. In dit geval .cells(1,1). Weet eigenlijk niet waarom ik hier voor rij 2 ben gegaan.

@hsv, je komma staat op de verkeerde plek

 

[HSV]

JVeer,

Met dat het werkt verbaast me nog steeds.
Een Databodyrange is iets anders dan de Range van een tabel.
Als je het om zou zetten naar een normale Range is dit in feite wat je doet met DataBodyrange.

range[COLOR=#ff0000]("a2:b5")[/COLOR].Sort Cells(2, 1), 2, , , , , , 1

Wat sorteert er dan niet mee?

 

[JEC.]

Blijkbaar komt het doordat je in een listobject zit

 

[HSV]

Dat is het ook maar verbaast me omdat het me na al die jaren nu pas opvalt.
In principe zo het niet kunnen/mogen bij die instelling van programmeren als je dit zou willen.

 

[snb]

Interessant.

Mijn voorkeur blijft:

Private Sub UserForm_Initialize()
  With Blad1.ListObjects(1).DataBodyRange
    .Sort .Cells(1), 2, , , , , , 1
    ListBox1.List = .Value
    .Sort .Cells(1), 1, , , , , , 1
  End With
End Sub

@Schipper
Het vullen van listboxen en/of comboboxen hoort in de initialize-procedure
Als je de insteek van Pagadder wil volgen kan het eenvoudiger

Private Sub UserForm_Initialize()
   sn = [tabel1].Value
   sp = sn

   For j = 1 To UBound(sn)
      sp(UBound(sp) - j + 1, 1) = sn(j, 1)
      sp(UBound(sp) - j + 1, 2) = sn(j, 2)
   Next

   ListBox1.List = sp
'End Sub