Hallo,
ich möchte mit VBA einen Kalorienverbrauchsrechner erstellen.
Leider sind dort einige Fehler da es nicht funktioniert, könntet ihr mir bitte Tipps geben, woran es liegen könnte?
als 1. wird gnach den Daten gefragt, also welches Geschlecht, Größe, Alter usw.
2. hier soll es an bestimmte bedingungen geknüpft werden, also der Durchschnittsmensch ist ja keine 3 m groß... deswegen sollte eigentlich dann das Programm abrechen wenn man merkwürdige Zahlen eingibt... mein Problem macht es aber nicht...
3. hier ist die eigentliche Berechnung des Grundumsatzes, die führt er aber nicht aus, warum nicht?
4. da ja der Mensch sich auch bewegt kommt ja noch die körperliche Aktivität hinzu, d.h. die Formel würde dann noch später mit einem wert multipliziert werden
bspw.
keine Bewegung (×1), ausschließlich sitzend/liegend (×1.2),... , körperlich anstrengende Arbeit (×2.2) -> insgesamt 6 Werte... wie kann ich diese dann noch einfügen?
so sieht bisher mein Versuch aus:
Sub kalorienverbrauch()
Dim groesse As Single
Dim gewicht As Single
Dim alter As Single
Dim geschlecht As Variant
Dim kalorienumsatzfrauen As Single
Dim kalorienumsatzmaenner As Single
geschlecht = InputBox(" Bitte gib dein Geschlecht ein, wenn du weiblich bist ein m und wenn du männlich bist dann ein w", "Eingabefeld", " w für weiblich, m für männlich") [COLOR="Cyan"]kann man hier es ´sich nicht irgendwie einfacher machen?[/COLOR]
groesse = InputBox("Bitte gib deine Groesse in m ein", "Eingabefeld", "Deine Eingabe")
alter = InputBox("Bitte gib dein Alter ein", "Eingabefeld", "Deine Eingabe")
gewicht = InputBox("Und jetzt gib dein Gewicht ein", "Eingabefeld", "Deine Eingabe")
If (groesse < 1.5) Then
strText = " wichtig !!!"
MsgBox ("Bitte eine Größe über 1,50m angeben")
End If
If (groesse > 2.5) Then
MsgBox ("Bitte eine Größe unter 2,50m angeben")
End If
If (gewicht < 45 And gewicht) Then
MsgBox ("Bitte ein Gewicht über 45kg angeben")
End If
If (gewicht > 200) Then
MsgBox ("Bitte ein Gewicht unter 200kg angeben")
End If
If (geschlecht = w) Then
kalorienumsatzfrauen = 655.1 + 9.6 * gewicht + 1.8 * groesse - 4.7 * alter
ElseIf (geschlecht = m) Then
kalorienumsatzmaenner = 66.47 + 13.7 * gewicht + 5 * groesse - 6.8 * alter
End If
End Sub
Ich hoffe es war verständlich geschrieben (denn es ist meine erste Frage) und ich würde mich über jede leicht verständliche Hilfe freuen