køre igennem alle ulige og lige numre

Dim rAlle As Range, rM As Range, rK As Range, rCell As Range

Set rAlle = Range("A1:A10")    <<<<< ændres til din range med numre
Set rM = Range("B1")              < ændres til hvor mænd starter
Set rK = Range("C1")              < ændres til hvor kvinder starter
For Each rCell In rAlle.Cells
    If CLng(Right(rCell.Value,1)) Mod 2 = 1 Then
        rM.Value = rCell.Value
        Set rM = rM.Offset(1,0)
    Else
        rK.Value = rCell.Value
        Set rK = rK.Offset(1,0)
    End If
Next

Ok, mange tak :) det hjalp lidt på det.
Men må jeg lige spørge hvad "CLng" står for? Det er det jeg ikke lige forstår.

Clng() er en Type konvertering til typen Long

I dette tilfælde er Right(rCell.Value,1) en String. For at kunne lave en Mod beregning på den skal den konverteres til et tal -en Long.

Nu er VBA et meget "sløset" sprog, så det er ikke sikkert det er nødvendigt, men man kan jo lige så godt kode korrekt!

Ok nu forstår jeg.
Lige et spørgsmål til. Hvis jeg nu ikke ved hvor mange CPR-numre der er (medmindre jeg kører koden), kan jeg så skrive dette anderledes? :
Set rAlle = Range("A4:?")

Ja. Du kan bruge End-metoden:

Dim i as Long

i = Range("A4").End(xlDown).Row
Her findes den sidste række i kolonne A, fra række 4 og ned, der indeholder data. Hvis der er et hul i kolonnen vil den stoppe der.

Man kan også:

i = Range("A65535").End(xlUp).Row
Finder den første række i kolonne A, fra række 65535 og op, der indeholder data.

Så i dit tilfælde ville jeg gøre sådan:
Dim i as Long
i = Range("A4").End(xlDown).Row
Set rAlle = Range("A4:A" & CStr(i))

-Her er en anden type konvertering: i er et tal, men skal inputtes i rangen som en streng, så vi bruger CStr().

PS: tillader mig at lægge svar.

Ok.. men hvad så hvis jeg allerede har deklareret i som integer?
Skal jeg så give "i" i dette tilfælde et andet navn eller sådan noget?

Jeg er ny herinde. Så hvordan giver man point?

Hvis i ikke skal bruges yderligere er alt OK.
Ellers lav en anden variabel......

For at give point skal du acceptere mit svar.
Se evt her: http://www.eksperten.dk/faq#faq-3-1

Ok.. har accepteret dig svar og givet dig point. Mange tak for hjælpen!