Sub pocitac()

'Athletic calculator
sto = InputBox("Zadejte čas na 100m (formát času např.: 9.46)", "Čas za 100m") 'Sprint for 100m
max100 = 17.15


If sto > max100 Then
                    score100 = 0#   'Přiřazení bodové hodnoty. Příkaz FoundCell.Row zjistí na kolikítém řádku se čas nachazí a sloupec je pořád stejný
                   Sheets("List2").Select                   'Aktivuje List2
                   ActiveSheet.Cells(1, 1).Value = "100 m " 'Hlavička
                   ActiveSheet.Cells(2, 1).Value = score100 ' Zapíše bodový výsledek na danou pozici
                   MsgBox "Bodová hodnota  za čas: " & sto & "  je  " & score100, , "Bodová hodnota za 100m"
            Else

                       For I = 1 To 1402   ' řádek 1 až 1402
                          rozsah = "B" & I    ' Sloupec B řádek 1 - 1402
                                  With Range(rozsah) 'Vyhledání zadané hodnoty dveste ve sloupci B a řádku 1 až 1402
                                      Set FoundCell = .Cells.Find(what:=sto, _
                                                       after:=.Cells(.Cells.Count), _
                                                       LookIn:=xlFormulas, _
                                                       Lookat:=xlPart, _
                                                       searchorder:=xlByRows, _
                                                       searchdirection:=xlNext, _
                                                       MatchCase:=False)
                                   End With
                               If FoundCell Is Nothing Then
                                                'posunout o jednu bunku dolu??
              Else

                    score100 = Cells(FoundCell.Row, 1).Value 'Přiřazení bodové hodnoty. Příkaz FoundCell.Row zjistí na kolikítém řádku se čas nachazí a sloupec je pořád stejný
                   Sheets("List2").Select                   'Aktivuje List2
                   ActiveSheet.Cells(1, 1).Value = "100 m " 'Hlavička
                   ActiveSheet.Cells(2, 1).Value = score100 ' Zapíše bodový výsledek na danou pozici
                   MsgBox "Bodová hodnota  za čas: " & sto & "  je  " & score100, , "Bodová hodnota za 100m" ' Vypsání bodů
           End If
          Next I

End If

End Sub