indeksmath:
    'sa INDEX(MATCH) NEZNAM
    Dim a As Integer
    Dim b
     Set rngDatum = Sheets("List2").Range("B1:G1")
     red = Application.WorksheetFunction.Match(ime, Sheets("List2").Range("A:A"), 0)
     For Each datum In rngDatum
        If datum >= "2.1.2015." And datum <= "4.1.2015." Then
            broj = Val(Trim(Sheets("List2").Cells(red, datum.Column)))
            kolona2 = Application.Index(Sheets("List3").Range("b1:b7"), WorksheetFunction.Match(broj, Sheets("List3").Range("A1:A7")))
            kolona3 = Application.Index(Sheets("List3").Range("c1:c7"), WorksheetFunction.Match(broj, Sheets("List3").Range("A1:A7")))
            kolona4 = Application.Index(Sheets("List3").Range("d1:d7"), WorksheetFunction.Match(broj, Sheets("List3").Range("A1:A7")))
            Sheets("List1").Select
            Cells(red1, 1) = datum
            Cells(red1, 2) = ime
            Cells(red1, 3) = kolona2
            Cells(red1, 4) = kolona3
            Cells(red1, 5) = kolona4
        End If
        red1 = red1 + 1
    Next datum