Gibt bestimmt ne einfache Lösung, aber ich komm ned drauf. ;-)
Hans
Sub text_suchen()
MsgBox Worksheets("Tabelle1").Range("A1:Z100").Find("*").Value
End Sub
Function text_finden(bereich As Range) As String
Application.Volatile
text_finden = bereich.Find("*").Value
End Function