AW: 2,4
01.08.2019 01:30:38
GerdL
Moin
Sub relative_Menge()
Dim rk As Double
Dim eh As Double
Dim sl As Double
Dim mg As Double
Dim sr As Double
Cells(5, 2) = 10
Cells(5, 3) = 21
Cells(5, 4) = 42
Cells(5, 5) = 12
Cells(5, 6) = 15
Cells(4, 2) = 2
Cells(4, 3) = 3
Cells(4, 4) = 4
Cells(4, 5) = 5
Cells(4, 6) = 5
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
Gruß Gerd