Option Explicit
 
Sub suchen()
 
Dim gefZelle As Object
 
Dim suchen As Double
 
suchen = 5.75
 
Set gefZelle = ThisWorkbook.Worksheets("Tabelle1").Range("F:F").Find( _
  What:=suchen)
 
If gefZelle Is Nothing Then
MsgBox "Suchbegriff wurde nicht gefunden!"
Else
MsgBox "Suchbegriff wurde gefunden in F" & gefZelle.Row
End If
 
End Sub

EALA FREYA FRESENA