Tjek Årstal i dato VBA

Hvordan kontrolere man årstallet i cellen

Eks.:

    år = Year(Range("B265"))

Er 2003 det første år? - skal placeringskolonnen udregnes som forskellen mellem aktuelle år og 2003.

Er det altid samme format ? f.eks 23-5-2007

Ja formatet er altid det samme

Har en liste med ca. 1600 adresser. Ud for hver adresse er der en dato for hvornår der er lavet eftersyn. De står tilfældigt afhængi af hvor eftersynet er started.
Vil derfor organiserer alle datoer i kolonner med en kolonne for hvert år.

Denne tjekker 100 rækker, kun årstal efter 2000

Sub ny()
    On Error Resume Next
    kl = 2      'kolonne med dato
    kloffset = 3 'offset til start (kolonne for år 2000)
For rk = 2 To 100
    Aar = Year(Sheets("sheet1").Cells(rk, kl).Value)
    Sheets("sheet1").Cells(rk, kloffset + Aar - 2000).Value = Sheets("sheet1").Cells(rk, kl).Value
Next rk
End Sub

Tak nu virker det

Send svar og få point

Velbekomme
Vent med at give point til supertekst har svaret. Da han kom med funktion year

Ok - med tak