zoekknop in excel

[beertje]

Hoi allemaal,

Ik ben bezig met een excelsheetje te maken voor mijn dvd collectie.
Nu wil ik graag een knop op mijn worksheet hebben, waar ik vervolgens mee kan zoeken naar een titel.
Weet iemand hoe ik dat kan doen?

Mijn dank is groot

Beertje

 

[Gregyor]

Ik denk dat jij een snelkoppeling naar ctrl+f wil hebben op je worksheet, zover ik weet is die mogelijkheid er niet.
Zelf heb ik in excel ook een bestand gemaakt met al mijn cd's en daar heb ik met hyperlinks gewerkt. Op het eerste blad heb ik de letter A, B, C enzovoorts en als je op die letter klikt kom je op de pagina met alle cd's met een A of andere letter.

Misschien is dit een idee?
Ik kan je een voorbeeld sturen.

Groetjes

 

[beertje]

Hoi Gregyor

Als je die wil sturen, graag.

Beertje

 

[Gregyor]

Wil je ajb je gewone E-mailadres opgeven. Dan kan ik namelijk het bestandje toesturen.

Groet :thumb:

 

[beertje]

heb je een mail gestuurd met mijn mailadres erin

 

[Gregyor]

Mail is onderweg :thumb:

 

[beertje]

Bedankt voor je mailtje
Maar dit is niet echt wat ik zocht.

Groetjes Beertje

 

[Gregyor]

Okay,

succes met het evt. zoeken van de oplossing voor jou,

Groetjes

 

[roelieboelie]

ik wil ook wat in excel maken voor mijn DIVX en Music CD collection....zou ik mischien ook dat bestandje mogen bekijken?
stuur maar naar:


thnxx!

 

[BasMan]

Probeer dit eens

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("Bezoekers").Activate
Range("a1").Select

For i = 1 To aantal
bladnr = "blad" + Format(i)
Sheets(6).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
While Cells.FindNext(After:=ActiveCell).Address <> eerstegevonden
Cells.FindNext(After:=ActiveCell).Activate
Wend
End If
Next

Bovenstaande in een commandbutton plaatsen en hij doet het!

Ik hoop dat dit een optie voor je is.

Mvg

BasMan

 

[beertje]

Hoi Basman,

Precies wat ik zocht !!!!!
Na wat aanpassingen van het scriptje werkt ie heel goed.

Bedankt!!

Groetjes Beertje

 

[BasMan]

You're welcome!

Hoi Beertje,

Geen dank! :thumb: :thumb:

 

[beertje]

hoi basman,

kan ik ook in dat scripje aangeven tussen welke cellen dat ie moet gaan zoeken?

hij gaat nu heel het werkblad af en vervolgens zit ie vast

beertje

 

[jzeedijk]

Hoi Beertje en anderen,

Een vrij eenvoudige en leuke oplossing:

N5: =ALS(AANTAL.ALS(($E$1:$E$999;MAX(8;$N4);0)=0;"="&$E2&"*");"";VERGELIJKEN($E2&"*";VERSCHUIVING($E$1:$E$999;MAX(8;$N4);0);0)+MAX(8;$N4))

E5: =ALS($N5="";"Niet gevonden";VERSCHUIVING(E$1;$N5-1;0))

Private Sub CommandButton2_Click()
Range("N4").Value = Range("N5").Value
End Sub

Wat doet dit geheel?:
In E2 staat een zoekstring, die zoekt in kolom E naar een tekst die overeenkomt met de zoekstring. Het regelnummer van de gevonden tekst komt in N5. In E5 wordt de bijbehorende tekst neergezet (kun je kopieren van A5 tot M5, in mijn geval) en je ziet alle gegevens van de gevonden zoekstring. Door op Commandbutton2 te klikken zet je de waarde van N5 over naar N4 en wordt het bereik waarin de zoekstring gezocht wordt opgeschoven en wordt het volgende regelnummer getoond. Weer op Commandbutton klikken en je krijgt de daarop volgende te zien. Als je door de database heen bent homt er "niet gevonden" te staan. Weer klikken geeft de eerste waarde.

Veel Excel, weinig VBA.

Jeroen