Thema Datum  Von Nutzer Rating
Antwort
04.12.2013 17:04:10 PeterH.
Solved
04.12.2013 17:18:30 PeterH.
Solved
10.12.2013 18:15:37 PeterH.
Solved
Blau BMI Bewertung
 10.12.2013 18:03:49 PeterH.
Solved

Ansicht des Beitrags:
Von:
PeterH.		 Datum:
10.12.2013 18:03:49		 Views:
887		 Rating:
     
Antwort:
 Nein
Thema:
BMI Bewertung		 
Option Explicit
Sub BMI()
'Variablendeklaration

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

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
04.12.2013 17:04:10 PeterH.
Solved
04.12.2013 17:18:30 PeterH.
Solved
10.12.2013 18:15:37 PeterH.
Solved
Blau BMI Bewertung
 10.12.2013 18:03:49 PeterH.
Solved