TimdeBlaeij
Gebruiker
- Lid geworden
- 19 jul 2017
- Berichten
- 22
Hoi,
Ik werk sinds een week met VBA vandaar dat deze vraag misschien een beetje dom overkomt, maar hoe maak je een zoekfunctie voor een listbox?
Ik heb zelf geprobeerd iets te maken met een textbox maar zonder succes.
De bedoeling is dat de textbox value word gezocht in het liefst alle kolommen.
Als deze value word gevonden in een kolom van een rij dan blijft die rij staan, wordt deze value niet gevonden in een kolom van een rij dan word deze tijdelijk verwijderd.
Heeft iemand een idee hoe ik dit kan maken?
Mijn code ziet er zo uit:
Ik werk sinds een week met VBA vandaar dat deze vraag misschien een beetje dom overkomt, maar hoe maak je een zoekfunctie voor een listbox?
Ik heb zelf geprobeerd iets te maken met een textbox maar zonder succes.
De bedoeling is dat de textbox value word gezocht in het liefst alle kolommen.
Als deze value word gevonden in een kolom van een rij dan blijft die rij staan, wordt deze value niet gevonden in een kolom van een rij dan word deze tijdelijk verwijderd.
Heeft iemand een idee hoe ik dit kan maken?
Mijn code ziet er zo uit:
Code:
Worksheets("Listbox").Activate
Set r = Range("A1").CurrentRegion
Set r = r.Offset(1).Resize(r.Rows.Count - 1)
With Lsb1
.ColumnCount = r.Columns.Count
.RowSource = r.Address
.ColumnHeads = True
End With
Laatst bewerkt:
. Daarnaast is er een speciale knop ( # ) om code mee op te maken, zodat die leesbaar blijft. Nou is die van jou nog niet zo groot, maar kijk maar eens rond bij codes die een halve meter beslaan. Niet meer te lezen 
