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

Ansicht des Beitrags:
Von:
PeterH.		 Datum:
04.12.2013 17:04:10		 Views:
1417		 Rating:
     
Antwort:
 Nein
Thema:
BMI Bewertung

Ich hab ein kleines Programm geschrieben zur Auswertung einer BMI Tabelle:

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

 

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
Rot BMI Bewertung
 04.12.2013 17:04:10 PeterH.
Solved
04.12.2013 17:18:30 PeterH.
Solved
10.12.2013 18:15:37 PeterH.
Solved
10.12.2013 18:03:49 PeterH.
Solved