Hallo,
ich möchte gern diesen Code hier mit einer Neuabfrage
Msgbox ("Möchten Sie eine weitere Berechnung durchführen?", vbYesNo)
erweitern, dass wenn der Benutzer "vbYes" anklickt, die BMI-Berechnung erneut durchgeführt wird. Allerdings bekomme ich es nicht hin in einer Loop-While oder Loop-Until Schleife...
Ich weiß es muss noch eine Variable "Neuabfrage" deklariert werden, aber als welcher Datentyp? Und wie füge ich die Variable in die Schleife ein?
Weiß einer Rat bzw. woran es liegen könnte? Bin noch totaler VBA-Noob...
Hier mein Ursprungs-Code:
Sub Bodymassindex_Berechnung()
Dim Größe As Single
Dim Gewicht As Single
Dim BMI As Byte
Größe = InputBox("Bitte geben Sie hier Ihre Größe in m ein:")
Gewicht = InputBox("Bitte geben Sie hier Ihr Gewicht in kg ein:")
BMI = Gewicht / (Größe * Größe)
MsgBox ("Sie haben einen BMI von: " & BMI)
End Sub
Vielen Dank vorab für eure Hilfe!
|