code voor filtreren van gegevens en aanpassen

[Eastw00d]

met deze code kan ik idd selecteren in een listbox, maar ik kan de gegevens nog niet aanpassen.

 

[edmoor]

Gegevens in een Listbox kan je niet aanpassen, dat zal je in de bron van die gegevens moeten doen.
Je kan het geselecteerde item wel in een Textbox plaatsen en dan daar aanpassen.

 

[Eastw00d]

ik kan toch een textbox alleen maar op 1 plaats laten invoeren ipv op een gefilterde waarde?

 

[AHulpje]

Met edit mogelijkheid:

 

[Eastw00d]

als ik de code aanpas naar de te gebruiken userform, krijg ik een melding dat de typen niet met elkaar overeenkomen.
ik zit nu al vanaf woensdag te zoeken, maar ik krijg hem niet gevonden

 

[edmoor]

TxtRij.Text is leeg.
Daarnaast kan je een tekstwaarde niet in een Long zetten.

 

[AHulpje]

Probeer het zo eens:

 

[Eastw00d]

Dank je. Ik had van alles geprobeerd, maar nu zie waar ik fout ging

 

[AHulpje]

Mooi zo, en wat me nu pas opvalt: filtreren <> filteren.

 

[Eastw00d]

de code begint te werken, loop alleen nog tegen een 2-tal problemen, ik kan niet filtreren op getallen en ik wil maar de 3de kolom weergeven ipv alles

 

[AHulpje]

Leg eens aan de hand van een voorbeeld uit wat je probleem is.

 

[Eastw00d]

ik wil filteren op kolom 2, maar daarin staan alleen getallen en geen woorden. Verder moet alleen de 2de kolom worden weergegeven in de listbox ipv alles

 

[AHulpje]

Als je alleen de tweede kolom wilt zien in de listbox dan geef je alle andere kolommen de breedte 0:



Als je nu op 1 filtert zie je een lijstje met 5 enen, lijkt me niet echt handig.

En zo zorg je ervoor dat je ook op getallen kunt filteren:

If CStr(dataRow.Cells(1, 2).Value) = Proces.Value Or Proces.Value = "" Then

Ik zie nu dat de ColumnCount nog 4 is, dat moet natuurlijk 9 zijn.