ich würde mal gerne

Dim c as Excel.Range

For Each c in Range("A5:A40")

'*** Code

Next c

Ein Loop im Bereich A5:A40 und bei dem Wort "Urlaub" soll die rechte Zelle davon in das Textfeld aufgenommen werden

Schleifenkopf

If c.Value = "Urlaub" Then

UserForm1.Textfeld.Value = c.offset(0,1).Value


Schleifenrumpf

Jetz gäbe es noch viele Rückfragen und ein paar Tücken zu berücksichtigen, aber, bastel Dir erstmal alles zusammen und berichte von Deinen Probeläufen.