Maria,
You could pass the date received from the message box to the following sub.
This assumes that the Programmatic name of the sheet you have the list on is
Sheet2 and that the range is from A1 to A100. Modify the code appropriately.

Sub Switch(ByVal d As Double)

Dim lRow&

On Error Resume Next
lRow = WorksheetFunction.Match(d, Sheet2.Range("A1:A100"), 0)
On Error GoTo 0

If lRow < 0 Then
Sheet2.Activate
Sheet2.Cells(lRow, 1).Select
End If

End Sub


"Maria" wrote:

Hello!

I am trying to do the following: The user chooses a cell
via an InputBox (the cell contains a date); then the macro
needs to switch to another sheet an find this value/the
date in Column "A" and activate it. I just don't know how
to adress it ... Can anybody help?

Thanks,

Maria