rijnummer overpakken uit tekstvak

[blueberry013]

Hallo!

Is het mogelijk om gegevens uit een rij te halen als ik in een tekstvak het rijnummer intyp?

vb. als ik 9 intyp in een tekstvak, zou hij de gegevens uit rij 8 moeten halen.
Dit lukt met volgende code :

If opdrachtnummer.Value = "9" Then
Sheets("2011-w").Select
Rows("9:9").Select
Selection.Copy
Sheets("tempopdr").Select
Range("A53").Select
ActiveSheet.Paste
Rows("53:53").Select
Selection.EntireRow.Hidden = True
End If

Probleem is dat er zeeeeer veel rijen zijn en dat het moeilijk is voor elke rijnummer dit te doen.
Is er een mogelijk om die "9" en rows(9:9) om te zetten naar een variabele?

groetjes
wim