---

Function OmaID(Hakualue As Range)
    Dim Solu As Range
    For Each Solu In Hakualue.Cells
     If Solu.Value <> "ei löydy" Then OmaID = Solu.Value: Exit For Else OmaID = ""
    Next
End Function

---

---

Function OmaID(Hakualue As Range)
    OmaID = ""
    Dim Solu As Range
    For Each Solu In Hakualue.Cells
     If Solu.Value <> "ei löydy" Then OmaID = Solu.Value
    Next
End Function

---