Søg i kolonne og indsæt i liste hvis endnu ikke fundet

noget i den stil..

    For x = 1 To 1000
        If Not Cells(x, 1) = Cells(x, 2) Then
            Cells(x, 1) = Cells(x, 2)
        End If
    Next

Ja noget i den retning. Hvordan ser koden ud, hvis den skal virke?

et forslag


Public Sub OpdaterListe()
Dim IND As Variant, UD As Variant, FLYT(1000) As Variant, OK As Boolean
IND = Range("A1:A1000") ' området med tal og tekst i cellerne, Kolonne A
UD = Range("D1:D1000") ' listen der skal kontrolleres med, Kolonne D
For i = 1 To UBound(IND)
If Not IsNumeric(IND(i, 1)) Then 'Tjek på tekst
OK = False
For J = 1 To UBound(UD)
If IND(i, 1) = UD(J, 1) Then
OK = True
Exit For
End If
Next J
If OK = False Then
Range("D65536").End(xlUp).Offset(1, 0) = IND(i, 1) ' tilføjer manglende tekst, Kolonne D
UD = Range("D1:D1000") ' genindlæser listen med den nye tilføjelse, der kan jo være flere ens
End If
End If
Next i
End Sub

FLYT(1000) As Variant,
er en fejl, slet den

Hvordan ser koden ud, hvis den skal virke?

den virker da hos mig.. problemet er at du skriver Celle og jeg skriver Cells (med S)

Tusinde tak. Jeg vil gerne give point. Hvorfor kan jeg ikke det????

fordi der ikke er gevet et svar.. hvem vil du give point til??

kan man dele dem ligeligt?

nu skal kabbak bare give et svar, så kan du dele dem..

Et svar ;-))

Undskyld sene point. Har først set nu, der er svaret... Tak for hjælpen!