Zoek fuctie in excel

[Rikkerdepik]

Hallo,

Ik ben nu een paar jaar bezig met Excel.
Meestal kan ik met een beetje puzzelen en uiteindelijk komt het altijd wel goed.
Maar deze keer kom ik er echt niet uit.

Dit is de bedoeling:

Ik ben bezig met een setup te maken voor Facturen.
Het volg nummer, klanten bestand ect is er nu in verwerkt.

In de bijlage zit een foto van hoe het huidige klanten bestand word toegepast op de factuur.
Alleen het is de bedoeling dat als ik bvb. "Amsterdam" in typ dat alle klanten zichtbaar worden die in Amsterdam wonen en met de achternaam Amsterdam ect. Of als ik 'Am' intyp dat alles waar 'Am' in voor komt zichtbaar wordt.

Nu met een klanten bestand van ruim 750 klanten is het zwaar irritant om de hele tijd te scrollen/zoeken naar de juiste klant.

Mijn vraag is dus, is dit mogelijk en zo ja, hoe?

Alvast bedankt!

Rik.

 

[zapatr]

In je voorbeeld kun je louter uit voornamen kiezen via een keuzelijst;
in je tekst heb je het over zelf invoeren van een plaatsnaam.
Wees wat zorgvuldiger a.u.b. in het stellen van je vraag.
Excel weet uit zichzelf niet of je een (voor)naam of een plaatsnaam bedoelt hoor.
Je zou beter een(voorbeeld)- Excelbestand bijvoegen, zodat lezers weten waar de gegevens precies staan en wat de bedoeling is.

 

[Rikkerdepik]

In je voorbeeld kun je louter uit voornamen kiezen via een keuzelijst;
in je tekst heb je het over zelf invoeren van een plaatsnaam.
Wees wat zorgvuldiger a.u.b. in het stellen van je vraag.
Excel weet uit zichzelf niet of je een (voor)naam of een plaatsnaam bedoelt hoor.
Je zou beter een(voorbeeld)- Excelbestand bijvoegen, zodat lezers weten waar de gegevens precies staan en wat de bedoeling is.

Het voorbeeld bestand, misschien kan nu iemand er wel iets mee?

als het alleen al lukt om een stukje van alleen de naam in typen zou dat ook al een hoop schelen!

 

[RaymondC]

Deze code eens ergens gevonden (en bewaard, weet de auteur niet).
Misschien ben je hier mee een stuk geholpen?

Sub ZoekOp()
'
' ZoekOp Macro
'
Dim bladnr As String
Dim zoek As String
Dim i As Integer
Dim eerstegevonden As String

'
'On Error Resume Next
aantal = ActiveWorkbook.Worksheets.Count
zoek = InputBox("Geef de te zoeken tekst op: ")
Sheets("blad1").Activate
Range("a1").Select

For i = 1 To aantal
bladnr = "blad" + Format(i)
Sheets(bladnr).Activate
Range("a1").Select
If Not Cells.FindNext(After:=ActiveCell) Is Nothing Then
eerstegevonden = Cells.Find(zoek).Address
Cells.Find(What:=zoek, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Activate
ActiveCell.Interior.ColorIndex = 4
While Cells.FindNext(After:=ActiveCell).Address <> eerstegevonden
Cells.FindNext(After:=ActiveCell).Activate
ActiveCell.Interior.ColorIndex = 4
Wend
End If
Next
End Sub