Option Explicit
Sub Test()
Dim rng As Excel.Range
Dim strMail As String
With Worksheets("Tabelle1").Columns("A")
Set rng = .Find("x", , xlValues, xlWhole, xlByColumns, MatchCase:=False)
If Not rng Is Nothing Then
strMail = rng.Offset(0, 1).Value
MsgBox "EMail: " & strMail
Else
MsgBox "Keine Eintrag markiert."
End If
End With
End Sub