No tých čiarok si tam nemusel toľko dávať 
Ešte malá úprava
Public Function cislo(odkial As String, co As String) As String
Dim od As Long, po As Long
od = InStr(1, odkial, co, vbTextCompare) + Len(co)
po = InStr(od + 1, odkial, " ")
If po = 0 Then po = Len(odkial)
cislo = Trim(Mid(odkial, od + 1, po - od))
If Right(cislo, 1) = "," Then cislo = Left(cislo, Len(cislo) - 1)
End Function
Ešte malá úprava
Public Function cislo(odkial As String, co As String) As String
Dim od As Long, po As Long
od = InStr(1, odkial, co, vbTextCompare) + Len(co)
po = InStr(od + 1, odkial, " ")
If po = 0 Then po = Len(odkial)
cislo = Trim(Mid(odkial, od + 1, po - od))
If Right(cislo, 1) = "," Then cislo = Left(cislo, Len(cislo) - 1)
End Function
Příloha: 
24682_najdi_hodnoty_v_bunce.zip (14kB, staženo 53x)
citovat24682_najdi_hodnoty_v_bunce.zip (14kB, staženo 53x)
RSS nejnovější články