Hi,
alternativ über .Match:
Rückgabewert ist die Postion im Bereich.
Wenn Fußball in A3 stünde, also 3.
Sub MatchA() Debug.Print Application.Match("Fußball", Range("A:A"), 0) End Sub