Option Explicit
Sub BMI()
Dim Personennummer As Long
Dim Geschlecht As String
Dim Größe As Long
Dim Gewicht As Integer
Dim BMI As Long
Dim Bewertung As String
Dim i As Integer
For i = 4 To 53
Größe = Worksheets("BMI").Cells(i, 3).Value
Gewicht = Worksheets("BMI").Cells(i, 4).Value
Geschlecht = Worksheets("BMI").Cells(i, 2).Value
BMI = (Gewicht / Größe ^ 2) * 10000
If Geschlecht = "w" Then
If BMI < 19 Then
Bewertung = "Untergewicht"
Else
If BMI > 24 Then
Bewertung = "Übergewichtig"
Else
Bewertung = "Normal"
End If
End If
Else
If BMI < 20 Then
Bewertung = "Untergewicht"
Else
If BMI > 25 Then
Bewertung = "Übergewichtig"
Else
Bewertung = "Normal"
End If
End If
End If
Worksheets("BMI").Cells(i, 5).Value = BMI
Worksheets("BMI").Cells(i, 6).Value = Bewertung
Next
End Sub