geen 0 waarden weergeven in listbox

[r3000]

Heeft iemand een oplossing voor bijgaand probleem? dit is een voorbeeld bestandje:Bekijk bijlage 0 waarden niet laten zien als keuze.xlsm

Het is de bedoeling dat de 0-waarden niet worden weergegeven in de listbox.

De oplossing is niet door deze handmatig weg te halen uit het excelbestand.
Het originele bestand bevat namelijk een grote database waar dit niet mogelijk is.

Bij voorbaat dank!

 

[HSV]

Private Sub ListBox1_Change()
ListBox2.Clear
Dim c As Range
    
 With Sheets("Blad1").Range("A1:A6")
    Set c = .Find(ListBox1, , xlValues, xlWhole)
     c.Offset(, 1).Resize(, 6).Name = "cellen"
       ListBox2.List = Application.Transpose([if(cellen=0,"",cellen)])
     ThisWorkbook.Names.Item("cellen").Delete
 End With
End Sub

 

[snb]

In der Beschränkung....

Private Sub ListBox1_Change()
  ListBox2.List = Filter(Application.Index(ListBox1.List, ListBox1.ListIndex + 1, 0), 0, False)
End Sub

Private Sub UserForm_initialize()
  ListBox1.List = Blad1.Cells(1).CurrentRegion.Value
End Sub

 

[HSV]

Funktioniert sehr gut.

 

[r3000]

HSV en snb,

Bedankt voor jullie reacties.

Ik heb allebei de codes geprobeerd.
De code van snb lijkt de beste oplossing, alleen lukt het me niet om die toe te passen in mijn originele bestand.
Dat komt volgens mij omdat de gegevens in Excel zich op andere locaties en bladen begeven.
Ik heb dat aangepast in dit voorbeeld Bekijk bijlage 0 waarden niet laten zien als keuze, rev 1.xlsm
Deze is als de layout van mijn originele bestand.

Hierin heb ik de code van HSV gebruikt, maar die laat nog steeds keuzes over in listbox2 (die geen 0 maar leeg zijn).
Dat geeft vervolgens een foutmelding als je de waardes uit listbox2 wilt gebruiken.

Ik wacht jullie reacties even af. :thumb:

 

[r3000]

Ik zou echt onwijs geholpen zijn als jullie er nog even naar zouden kunnen kijken.

Bij voorbaat dank!

 

[snb]

In mijn code is er maar 1 plaats die verwijst naar een gebied in een werkblad.
Het enige wat je hoeft te doen is die verwijzing aanpassen.

 

[r3000]

snb,

Ik denk dat ik jouw code niet begrijp.

dit was mijn code:

ListBox2.List = Application.Transpose(e.Offset(, 26).Resize(, 6).Value)

Die werkt maar dat krijg ik dus vervelende "nulletjes" in ListBox2

met jouw code zou het dan als volgt worden:

ListBox2.List = Filter(Application.Transpose(e.Offset(, 26).Resize(, 6).Value), 0, False)

Maar dat werkt niet.

Ik dacht dat het misschien aan "transpose" zou liggen maar dat heb ik echt nodig voor mijn bestand.

Kun je aangeven wat ik fout doe?

 

[snb]

Lees http://www.helpmij.nl/forum/showthr...n-in-listbox?p=5000217&viewfull=1#post5000217
nog eens goed.......

 

[r3000]

Beste snb,

Je bedoelt dat ik de verwijzing voor listbox1 moet aanpassen.
Dat heb ik gedaan.
Het niet weergeven van de 0 waarden werkt goed, echter worden de verkeerde waarden in listbox2 weergegeven.
Zie hier Bekijk bijlage 0 waarden niet laten zien als keuze, rev 2.xls het bestand met jouw code.

Groeten,
Remco.

 

[snb]

Dat is mijn code niet in de Initialize gebeurtenis.

 

[r3000]

Beste snb,

Hierbij het bestand Bekijk bijlage 0 waarden niet laten zien als keuze, rev 3.xls met exact jouw code.
Kun je alsjeblieft aangeven hoe ik de code aan moet passen zodat het wel werkt?

Ik heb nu eenmaal niet zo veel kennis van VBA en zou er wel erg bij geholpen zijn.

Met vriendelijke groet,

Remco.

 

[snb]

Zoek in de hulpbestanden van de VBEditor op het lemma 'currentregion'

 

[r3000]

Het is me (deels) gelukt.
Zie bijgaand voorbeeld Bekijk bijlage 0 waarden niet laten zien als keuze, rev 4.xls

Het probleem is nu alleen dat wanneer er maar één waarde beschikbaar is voor listbox2, er een foutmelding komt.
Kortom, dat kan niet verwerkt worden.
Hoe zou ik dat op kunnen lossen?

Groeten,
Remco.

 

[HSV]

Zoiets?

Private Sub UserForm_initialize()
 Label1.Visible = False
 ListBox1.List = Blad1.Columns(3).SpecialCells(2).Value
End Sub

Private Sub ListBox1_Change()
  ListBox2.List = Filter(Application.Index(Range(Cells(ListBox1.ListIndex + 8, 29), Cells(ListBox1.ListIndex + 8, 32)).Value, 1, 0), 0, False)
End Sub

 

[r3000]

Dank je HSV. Ben er blij mee! :thumb: