zoeken in een database

[dakdekker]

Ik heb van excel een database gemaakt waar ik de werken, de materialen en de uren in registreer
Om een werk makkelijk te kunnen vinden ín de lijst gebruik in een inputbox met een macro eronder.
Om bijv. te zoeken naar bakker, vul ik in de inputbox *bak* en alles waar "bak" in voorkomt wordt gefilterd.
Mijn vraag: is er aan de macro iets toe te voegen waardoor ik niet steeds de ** erbij hoef te zetten?

Ik ben (als nieuw lid) benieuwd naar de reacties,

groeten
Bennie (dakdekker)

 

[Wigi]

Bennie

Welkom op het forum!

Kan je de bewuste macro dan hier plaatsen (tussen code tags aub, dat is het # icoontje in de balk als je een antwoord schrijft).

Wigi

 

[dakdekker]

zoeken in database

Ik heb een voorbeeld gemaakt.
Dit maakt duidelijk wat ik bedoel

gr

Bennie

 

[dakdekker]

Bennie

Welkom op het forum!

Kan je de bewuste macro dan hier plaatsen (tussen code tags aub, dat is het # icoontje in de balk als je een antwoord schrijft).

Wigi

HIER DE TEKST ZOALS DIE IN DE MACRO STAAT

Sub B102InputboxKolomB()
'Bij inputbox nooit scherm uitzetten d.m.v.Application.ScreenUpdating = False
Range("A1").Select
KolomB = Application.InputBox("Voer project nr. in", Type:=6)
Selection.AutoFilter Field:=2, Criteria1:=KolomB
Selection.End(xlUp).Select

End Sub

 

[Wigi]

Sub B102InputboxKolomB()
'Bij inputbox nooit scherm uitzetten d.m.v.Application.ScreenUpdating = False
Range("A1").Select
KolomB = Application.InputBox("Voer project nr. in", Type:=6)
[B]Selection.AutoFilter Field:=2, Criteria1:="*" & KolomB & "*"[/B]
Selection.End(xlUp).Select

End Sub

Graag geen hoofdletters meer gebruiken en bij deze ook nog eens de vraag om code binnen de code tags te plakken.

Wigi

 

[trucker10]

Kan je hier iets mee ?

 

[dakdekker]

Kan je hier iets mee ?

Bedankt voor de reactie.
Het antwoord wat eerder door Wigi is gegeven werk perfect

gr

Bennie