Zoeken in ander blad

[robdgr]

Met

Sub Zoek()
'
' Zoek Macro
''
    Range("G8").Select
    ActiveCell.FormulaR1C1 = G8
    Sheets("Gegevens").Select
    Selection.Find(What:=G8, After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
End Sub

wil ik vanuit het blad inhoud kunnen zoeken in het blad gegevens. De zoektekst dacht ik in te kunnen vullen in G8. Maar ik begeef me weer eens op een terrein waar ik 'niet helemaal thuis ben'

Alvast dank voor de hulp

 

[robdgr]

Gevonden

Sub Zoek()
'

Dim zoeknaar As String
zoeknaar = InputBox("U Zoekt: ")

    Sheets("Gegevens").Select
    Cells.Find(What:=zoeknaar, After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
MsgBox ("Zoekstring " & zoeknaar & " gevonden op " & ActiveCell.Address)
End Sub

Wim :thumb: