Sub CheckText() Dim x, y As Integer y = 0 For x = 1 To 3000 If Application.WorksheetFunction.CountIf(Range("X1:X10"), Cells(x, 2)) = 0 Then y = 1 End If Next If y = 0 Then Cells(1, 1) = "Ja" Else Cells(1, 1) = "Nej" End If End Sub
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.