Minimum berechnen

Sub relative_Menge()
Dim rk As Integer
Dim eh As Integer
Dim sl As Integer
Dim mg As Integer
Dim sr As Integer
rk = (Cells(5, 2).Value / Cells(4, 2).Value)
eh = (Cells(5, 3).Value / Cells(4, 3).Value)
sl = (Cells(5, 4).Value / Cells(4, 4).Value)
mg = (Cells(5, 5).Value / Cells(4, 5).Value)
sr = (Cells(5, 6).Value / Cells(4, 6).Value)
Cells(1, 7).Value = Application.WorksheetFunction.Min(rk, eh, sl, mg, sr)
End Sub