meine Function sieht folgendermasen aus:
y = 1
d1 = 40
d2 = 50
d3 = 60
d4 = 70
For i = 1 To 4
For j = 1 To 4
x = Cells(j, i)
z = "d" & y
If x = z Then
Cells(j, i).Select
Selection.Interior.ColorIndex = 3
End If
Next
y = y + 1
Next
was ich damit bewirken wollte ist folgendes: für unterschiedlich Reihen gelten unterschiedliche Werte als Vergleichswert, da ich nicht x-mal diese For schleife schreiben möchte, dachte ich mir ich definiere die Bezugswerte mit d1 , d2, d3 , ... . und rufe diese Werte dann mit "d" & y auf (wobei y von 1 - 10 läuft)
Ist das überhaupt möglich oder gibt es eine andere Möglichkeit
Danke schon mal
MFG Gü