12. marts 2014 - 10:53Der er
7 kommentarer og 1 løsning
Lav Lopslag i de rækker, der matcher 2 kriterier
Jeg har en masse rækker med en masse cpr. Cpr og andre data går igen i flere af rækkerne. Dato er forskellig i hver rækker og jeg skal ud fra CPR lave opslag i de rækker hvor dato har et givent interval.
VBA-koden: Rem Indsættes i Module Rem ================== Const cprKol = "A" 'justeres Const datoKol = "B" Const krKol = "C"
Dim antalRækker As Integer Public Function opslagCprDato(cprNr As String, fraDato As Date, tilDato As Date) ActiveWorkbook.Sheets(1).Activate antalRækker = Range("A65536").End(xlUp).Row
For ræk = 2 To antalRækker If cprNr = Range(cprKol & ræk) And _ Range(datoKol & ræk) > fraDato And _ Range(datoKol & ræk) < tilDato Then opslagCprDato = Range(krKol & ræk) Exit Function End If Next ræk
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.