makro der kontrollerer om der er de samme tal i kol A i 2 ark

Sub Check()
Set sh1 = Sheets("Ark1")
Set sh2 = Sheets("Ark2")
r1 = sh1.Cells(65500, 1).End(xlUp).Row
r2 = sh2.Cells(65500, 1).End(xlUp).Row
x = 0
For t = 1 To r1
x = 0
For tt = 1 To r2
If sh2.Cells(tt, 1) = sh1.Cells(t, 1) Then x = 1: Exit For
Next
If x = 0 Then y = y & sh1.Cells(t, 1) & vbLf
Next
MsgBox ("Der mangler") & vbLf & y

End Sub

yes. det virker lige som det skal, næsten......

Det sker engang imellem at der står nogle tekster i kollonne A også.
Dem skal den ikke teste for.
Det skal altså kun være en test af numeriske værdier.
Kan det lade sig gøre

Sub Check()
Set sh1 = Sheets("Ark5")
Set sh2 = Sheets("Ark6")
r1 = sh1.Cells(65500, 1).End(xlUp).Row
r2 = sh2.Cells(65500, 1).End(xlUp).Row

For t = 1 To r1
X = 0
For tt = 1 To r2
If sh2.Cells(tt, 1) = sh1.Cells(t, 1) Then X = 1: Exit For
Next
If X = 0 And IsNumeric(sh1.Cells(t, 1)) Then y = y & sh1.Cells(t, 1) & vbLf
Next
MsgBox ("Der mangler") & vbLf & y

End Sub

ret lige Ark5 og Ark6 til dine ark navne

Yes, så var den der.
Jeg takker mange gange.

Smider du lige et svar til mig?

ok velbekom