Zoekfunctie in sheet

[sebastian8688]

Hallo,

Ik heb een zoekfunctie in een sheet van excel gemaakt. Ik heb gebruik gemaakt van een macro, maar wil eigenlijk ook afzonderlijke woorden of letters binnen de cell kunnen vinden/aangeven. Daarbij zou ik ook willen dat de zoekfunctie niet stopt bij het eerste gevonden antwoord, maar bij het einde van de sheet.

Ik ben nog vrij nieuw met het programmeren (ongetwijfeld te zien aan de codering), dus tips zijn erg welkom wat betreft bijvoorbeeld opbouw e.d. .

Sub zoekOpTaak()

Dim Gevonden As Boolean, index As String, teZoeken As String
Const maxTabel = 300

teZoeken = InputBox("Vul de te zoeken taak in (géén hoofdletters).")
Gevonden = False: index = 1
Do While Gevonden = False And index <= maxTabel

If LCase(Cells(index, 5).Value) <> teZoeken Then

index = index + 1​

Else

Gevonden = True​

End If​

Loop

If Gevonden = True Then

Application.Goto reference:=Cells(index, 5)
Worksheets("Checklist SolidWorks").Range("B5:F200").Font.Color = RGB(0, 0, 0)
Worksheets("Checklist SolidWorks").Range("B5:F200").Font.Bold = False
Worksheets("Checklist SolidWorks").Cells(index, 2).Font.Color = RGB(0, 0, 255)
Worksheets("Checklist SolidWorks").Cells(index, 3).Font.Color = RGB(0, 0, 255)
Worksheets("Checklist SolidWorks").Cells(index, 4).Font.Color = RGB(0, 0, 255)
Worksheets("Checklist SolidWorks").Cells(index, 5).Font.Color = RGB(0, 0, 255)
Worksheets("Checklist SolidWorks").Cells(index, 6).Font.Color = RGB(0, 0, 255)
Worksheets("Checklist SolidWorks").Cells(index, 1).Font.Bold = True
Worksheets("Checklist SolidWorks").Cells(index, 2).Font.Bold = True
Worksheets("Checklist SolidWorks").Cells(index, 3).Font.Bold = True
Worksheets("Checklist SolidWorks").Cells(index, 4).Font.Bold = True
Worksheets("Checklist SolidWorks").Cells(index, 5).Font.Bold = True
Worksheets("Checklist SolidWorks").Cells(index, 6).Font.Bold = True​

Else

MsgBox "Niet gevonden"​

End If​

End Sub​

Alvast dank.

Met vriendelijke groet,

Sebas

 

[manamana]

Hallo sebas. Zit hier wat in.
http://www.zowerktexcel.nl/category/functies/

 

[arnose09]

Ik heb laatst deze zoekfunctie gevonden. Zie bijgesloten bestand.

Bekijk bijlage extensive search.xlsm

 

[manamana]

Ik heb laatst deze zoekfunctie gevonden. Zie bijgesloten bestand.

Bekijk bijlage 139749

Oh OKe.

 

[bandito bob]

Misschien is een methode met formules ook iets?....zie bijlage.