Hallo Johannes,

eine Formel fällt mir hierzu nicht ein, da sich der Sachverhalt anders als in der Ausgangsfrage darstellt.

Folgendes Makro färbt in der ersten Zeile den Namen, dessen Nachname auch in der zweiten Zeile vorkommt.
Ich hoffe , dass Du es so willst.

Option Explicit

Sub faerben()
    Dim rngC As Range, rngD As Range
    For Each rngC In Range("D2:G2")
        For Each rngD In Range("D3:G3")
            If Right(rngD, Len(rngD) - 3) = Right(rngC, Len(rngC) - 3) Then
                rngC.Interior.ColorIndex = 3
            End If
        Next
    Next
End Sub

Gruß
Rainer

Hallo Rainer,
danke! ich werde es mal testen.
Wofür steht eigentlich das

Option Explicit

?
Viele Grüße,
Johannes

Hallo Rainer,
ich glaube, das ist das richtige!
Da ich jetzt erstmal verreist bin, melde ich mich erst Sylvester zurück,
test aber bis dahin das Makro noch in anderen Mappen.
Vielen Dank,
Johannes

Hallo Johannes,



Option Explicit wird sowohl auf Modul- als auch auf UserFormebene verwendet und erzwingt eine genaue Deklaration aller Variablen in diesem Modul/dieser UserForm.

Der Vorteil hierbei ist, dass bereits beim Kompilieren des Programms alle Variablen auf eine Deklaration überprüft werden. Tippfehler im Code werden markiert. Es kann also nicht passieren, dass ein Programm auf Grund nicht deklarierter Variablen nicht funktioniert.

Option Explicit sollte also zwingend aktiviert sein.
Das kannst Du im VBE unter Extras --> Optionen --> Registerkarte Editor erledigen, indem Du vor "Variablendeklaration erforderlich" ein Häkchen setzt. Nach einem VBA-Neustart steht diese Funktion auf Dauer für alle Mappen zur Verfügung.

Gruß
Rainer

Hallo Rainer,
danke für die Erklärung,
das Makro funktionert in einer anderen Arbeitsmappe leider noch nicht.
Mal sehen, ob ich selber herausfinde, was ich ändern muss,
sonst melde ich mich noch einmal.
Guten Rutsch,
Johannes