VBA Finde gengangere i tal-streng

Dim Gentaget As String
X = 12456
Y = 123489
Z = 2468
For I = 1 To 9
If InStr(X, I) > 0 And InStr(Y, I) > 0 And InStr(Z, I) > 0 Then
Gentaget = Gentaget & I
End If
Next

som funktion

Public Function Gentaget(X, Y, Z) As String
For I = 1 To 9
If InStr(X, I) > 0 And InStr(y, I) > 0 And InStr(Z, I) > 0 Then
Gentaget = Gentaget & I
End If
Next
End Function

Takker. Tænkte nok det kunne gøres kort for en VBA-ekspert :-)

Jeg har lige et tillægsspørgsmål (værdi +60 point):
Jeg har udvidet koden lidt, fordi XYZ-værdierne hentes fra forskellige adresser.
Koden ser nu sådan ud:

Sub CheckCelle()
    Dim Gentaget As String
    X = 0
    Y = 0
    Z = 0
       
    Xcol = ActiveCell.Column
    Xrow = 12
   
    Ycol = 12
    Yrow = ActiveCell.Row
   
    'Zcol:
        Zcol = 15
        If ActiveCell.Column > 4 Then Zcol = 16
        If ActiveCell.Column > 7 Then Zcol = 17
               
    'Zrow:
        Zrow = 2
        If ActiveCell.Row > 4 Then Zrow = 3
        If ActiveCell.Row > 7 Then Zrow = 4
   
    X = Cells(Xrow, Xcol).Value
    Y = Cells(Yrow, Ycol).Value
    Z = Cells(Zrow, Zcol).Value
   
    For I = 1 To 9
    If InStr(X, I) > 0 And InStr(Y, I) > 0 And InStr(Z, I) > 0 Then
    Gentaget = Gentaget & I
    End If
    Next
       
End Sub

Jeg ønsker nu at gennemløbe hele området B2:J10 med ovenstående kode og placere resultatet(Gentaget) i en tilsvarende matrix U2:AC10.
Hvordan vil koden nu se ud?
Det må jo være noget med: For Each cell in .... Next. Men hvordan?

2. del er flyttet til http://www.eksperten.dk/spm/663458.

Kabbak, smid et svar ....

et svar ;-))

Kunne du hjælpe med den 2. del?

Jeg kikker på den, jeg skal lige lure hvordan den finder værdierne.

tak for point ;-))