Function Uporedi(Polje1 As Range, Polje2 As Range) If Polje1 = "0001" Then Select Case Polje2 Case "01" Uporedi = "ZG" Case "02" Uporedi = "EMPTY" Case "03" Uporedi = "KA" End Select ElseIf Polje1 = "0002" Then Select Case Polje2 Case "01" Uporedi = "ZG" Case "02" Uporedi = "KA" Case "03" Uporedi = "EMPTY" End Select End If End Function