Hallo Esteban,
für eine makrofreie Lösung müsste mann die Formel für die Bedingte
Formatierung in Zelle A10 wie folgt ändern:
=ODER(A1=Tabelle1!$A$5;A2=Tabelle1!$A$5)
Dann mit dem PinselSymbol das Format auf die anderen Zellen in Zeile 10
übertragen.
Ab Excel 2010 ist der genannte Umweg über die Namensdefinition übrigens
nicht mehr notwendig.
_________________________________________________________
Für eine Lösung mit Makro müsste man z.B. den Code der Ausgangsfrage
verwenden und jede Zelle einzeln durchsuchen. Etwas was ich mit meiner
Antwort vermeiden wollte. Dann könnte man in die Schleife eine Abfrage wie
If rgZelle.value = Sheets("Tabelle1").range("A5").value then
Sheets("Tabelle2").cells(10, rgZelle.Column).Interior.colorindex=5
End If
einbauen.
Um die Prüfung jeder einzelnen Zelle zu vermeiden kann man natürlich auch
die Such-Funktion von Excel verwenden, welche erheblich schneller durchläuft.
Hier ausnahmsweise mal ein fast Copy und Paste Code aus der Excel-Hilfe
da dieser schon so gut wie perfekt ist:
With Sheets("Tabelle2").Range("A1", Cells(2, Sheets("Tabelle2") _
.UsedRange.Column + Sheets("Tabelle2").UsedRange.Columns.Count - 1))
Set c = .Find(Sheets("Tabelle1").Range("A5").Value, LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
Sheets("Tabelle2").Cells(10, c.Column).Interior.ColorIndex = 8
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With
Gruß Mr. K.