Zoekroutine

[hazesoft]

Ik heb deze vraag ook al geplaatst bij de sectie Excel.

Wie gaat de uitdaging aan?

Hoe kan ik deze zoekroutine aanpassen, zodat ik ook een gedeelte van de naam van het te zoeken softwarepakket kan invoeren en hij niet hoofdletterafhankelijk is?

Ik stuur een gestripte versie van het bestand mee.

Sub zoeken()
Dim zoekprg, gevonden As String
Dim i As Integer
zoekprg = InputBox("Welk programma zoekt u?", "Zoeken")
For i = 1 To Sheets.Count
Sheets(i).Select
Range("A3").Select
While ActiveCell.Value <> ""
If ActiveCell.Value = zoekprg Then
If gevonden = "" Then
gevonden = gevonden & ActiveSheet.Name
Else
gevonden = gevonden & ", " & ActiveSheet.Name
End If
End If
ActiveCell.Offset(1, 0).Select
Wend
Next i
MsgBox ("De applicatie " & zoekprg & " is gevonden op sheet: " & gevonden)
End Sub

 

[puppie]

Toen jij je registreerde voor deze site ben je ook akkoord gegaan met de huisregels.

Daarin staat dat je maar 1 keer een vraag over een en hetzelfde probleem mag plaatsen.
Blijf dan ook bij deze link.
http://www.helpmij.nl/forum/showthread.php?s=&threadid=191118

Ik zal de beheerder van deze sectie inlichten.

 

[hazesoft]

Ben je van de FBI? Ga je gang.
Omdat dit een VBA-probleem is binnen MS-Excel, dacht ik dat het probleem beter in de sectie Programmeren kon plaatsen.
Of mag je een vraag niet "verplaatsen"?
Weet je een andere oplossing?

 

[puppie]

Ik ben niet van de FBI.
Maar ik probeer net zoals iedereen hier de huisregels te hanteren.

Zoals jij dat ook zou moeten doen.

 

[m@rio]

Deze gaat dicht en je mag verder gaan in je eerdere vraag