Hey, maybe an adaptation such as ...
<font face=Tahoma New><SPAN style="color:#00007F">Sub</SPAN> TestMePlz()
<SPAN style="color:#00007F">Dim</SPAN> rngFind <SPAN style="color:#00007F">As</SPAN> Range
<SPAN style="color:#00007F">Dim</SPAN> kStr <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">String</SPAN>
<SPAN style="color:#00007F">Dim</SPAN> iRow <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Long</SPAN>
<SPAN style="color:#00007F">Do</SPAN>
kStr = Application.InputBox("Van welke persoon wilt u een overzicht", "overzicht", Type:=2)
<SPAN style="color:#00007F">If</SPAN> kStr = "False" <SPAN style="color:#00007F">Then</SPAN> <SPAN style="color:#00007F">Exit</SPAN> <SPAN style="color:#00007F">Sub</SPAN>
<SPAN style="color:#00007F">Loop</SPAN> <SPAN style="color:#00007F">While</SPAN> kStr = ""
<SPAN style="color:#00007F">Set</SPAN> rngFind = Columns("E:E").Find(What:=kStr, After:=Range("E1"), _
LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)
<SPAN style="color:#00007F">If</SPAN> <SPAN style="color:#00007F">Not</SPAN> rngFind <SPAN style="color:#00007F">Is</SPAN> <SPAN style="color:#00007F">Nothing</SPAN> <SPAN style="color:#00007F">Then</SPAN>
iRow = rngFind.Row
Range("B" & iRow).Select
<SPAN style="color:#00007F">Else</SPAN>
MsgBox "Was not found!"
<SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">If</SPAN>
<SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN></FONT>
In VBA, getting the row is a little different. You must have some sort of worksheet object to return the row from. If it's not valid then it won't work. In the code you posted, Activecell.Row would have sufficed for the row number, but you don't need all that selecting and activating going on.
HTH