findzu benutze.
Sub finde() Dim suche As Range Dim Zu_Suchen As String Zu_Suchen = "Vorname" Set suche = ActiveSheet.Rows(1).Cells.Find(what:=Zu_Suchen) If suche Is Nothing Then MsgBox "nicht gefunden" Else MsgBox "Vorname ist in Zelle: " & suche.Address End If Set suche = Nothing End Sub