Macro Schleife While if then else Geschlossen

Question

Hallo,

brauche ein Macro zu schreiben, mit dem Excel die Zelleninhalte der ersten Zeile testet und wenn einen bestimmten Wert gefunden würde, dann  wird X in B1 angezeigt.

Wie kann ich das machen ???

Danke im Voraus

papasito · Answer

Hallo,

Du brauchst vielleicht die Funktion find zu benutze.
z.B um das Wort "Vorname" in die erste Zeile zu suchen:

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