Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
28.04.2009 12:51:40 |
Fenin |
|
|
Aw:BMI-Rechner Erweiterung mit Neuabfrage (Schleif |
28.04.2009 14:35:09 |
Holger |
|
|
|
28.04.2009 15:13:11 |
Fenin |
|
|
|
29.04.2009 08:17:35 |
Holger |
|
|
|
29.04.2009 08:39:40 |
Fenin |
|
|
|
30.04.2009 10:24:46 |
Fenin |
|
|
|
30.04.2009 10:26:15 |
Fenin |
|
|
Von:
Holger |
Datum:
28.04.2009 14:35:09 |
Views:
1358 |
Rating:
|
Antwort:
|
Thema:
Aw:BMI-Rechner Erweiterung mit Neuabfrage (Schleif |
Hallo Fenin,
das kannst du mit einer Do-Loop-Schleife erledigen.
Dein Code ist allerdings nicht fehlerteolerant. Wenn bei den Inputboxen der "Abbrechen"-Button angeklickt wird, erhälst du eine Fehlermeldung, da der Leerstring nicht als Single-Datentyp abgebildet werden kann. Wenn für Größe 0 eingegeben wird, soll durch o dividiert werden, was ebenfalls zu einem Fehler führt. Außerdem brauchst du für den Abbruch der Schleife ein Kriterium. Versuche z.B. die Quick-and-Dirty-Lösung
Sub Bodymassindex_Berechnung()
Dim Größe 'As Single
Dim Gewicht 'As Single
Dim BMI As Byte
Do
Größe = InputBox("Bitte geben Sie hier Ihre Größe in m ein:")
If IsNumeric(Größe) Then Größe = CDbl(Replace(Größe, ".", ",")) Else Exit Sub
If Größe = 0 Then Exit Sub
Gewicht = InputBox("Bitte geben Sie hier Ihr Gewicht in kg ein:")
If IsNumeric(Gewicht) Then Gewicht = CDbl(Replace(Gewicht, ".", ",")) Else Exit Sub
If Gewicht = 0 Then Exit Sub
BMI = Gewicht / (Größe * Größe)
MsgBox ("Sie haben einen BMI von: " & BMI)
Loop Until Gewicht = 0
End Sub
Gruß
Holger
Fenin schrieb am 28.04.2009 12:51:40:
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!
|
- 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
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- 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
|
|
28.04.2009 12:51:40 |
Fenin |
|
|
Aw:BMI-Rechner Erweiterung mit Neuabfrage (Schleif |
28.04.2009 14:35:09 |
Holger |
|
|
|
28.04.2009 15:13:11 |
Fenin |
|
|
|
29.04.2009 08:17:35 |
Holger |
|
|
|
29.04.2009 08:39:40 |
Fenin |
|
|
|
30.04.2009 10:24:46 |
Fenin |
|
|
|
30.04.2009 10:26:15 |
Fenin |
|
|