Thema Datum  Von Nutzer Rating
Antwort
Rot BMI Rechner in VBA - Laufzeitfehler
 19.11.2015 12:21:53 Sintho
NotSolved
19.11.2015 15:02:50 BigBen
NotSolved

Ansicht des Beitrags:
Von:
Sintho		 Datum:
19.11.2015 12:21:53		 Views:
1161		 Rating:
     
Antwort:
  Ja
Thema:
BMI Rechner in VBA - Laufzeitfehler

Moin o7,

Ich hab mir nur für Spaß mal zur Aufgabe gemacht VBA zu erlernen, und als Übung versuche ich momentan einen einfachen BMI Rechner zu schreiben.

Ansich klappt das auch ganz gut, ich hab was hingeschrieben, was meinem Wissen nach funktionieren sollte. Aber das tut es nicht. Ich bekomme beim compilieren die Fehlermeldung "Laufzeitfehler 424 - Objekt erforderlich".

Hier der Code soweit:

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
Private Sub CommandButton1_Click()
Dim age As Integer
Dim weight As Double
Dim size As Double
Dim bmi As Double
Dim agestr As String
Dim weightstr As String
Dim sizestr As String
Dim bmiint As Integer
 
agestr = TextBox1.Value
weightstr = TextBox2.Value
sizestr = TextBox3.Value
age = CInt(agestr)
weight = Val(weightstr)
size = Val(sizestr)
 
 
bmi = weight / (size * size)
bmiint = CInt(bmi)
If age > 19 Then
       <em> <strong>If OptionsButton1.Value = True Then</strong></em>
        If (bmiint < 20) Then
            MsgBox ("Sie haben Untergewicht!")
        End If
        If (19 < bmiint < 25) Then
            MsgBox ("Sie haben Normalgewicht!")
        End If
        If (24 < bmiint < 30) Then
            MsgBox ("Sie haben Übergewicht!")
        End If
        If (29 < bmiint < 40) Then
            MsgBox ("Sie haben Adipositas!")
        End If
        If (bmiint > 39) Then
            MsgBox ("Sie haben starke Adipositas!")
        End If
    End If
     
    If OptionsButton2.Value = True Then
        If (bmiint < 19) Then
            MsgBox ("Sie haben Untergewicht!")
        End If
        If (18 < bmiint < 24) Then
            MsgBox ("Sie haben Normalgewicht!")
        End If
        If (24 < bmiint < 30) Then
            MsgBox ("Sie haben Übergewicht!")
        End If
        If (30 < bmiint < 40) Then
            MsgBox ("Sie haben Adipositas!")
        End If
        If (bmiint > 39) Then
            MsgBox ("Sie haben starke Adipositas!")
        End If
    End If
End If
     If OptionsButton1.Value = True Then
        If (bmiint < 15) Then
            MsgBox ("Sie haben Untergewicht!")
        End If
        If (14 < bmiint < 22) Then
            MsgBox ("Sie haben Normalgewicht!")
        End If
        If (21 < bmiint) Then
            MsgBox ("Sie haben Übergewicht!")
        End If
    End If
     
    If OptionsButton2.Value = True Then
        If (bmiint < 17) Then
            MsgBox ("Sie haben Untergewicht!")
        End If
        If (16 < bmiint < 22) Then
            MsgBox ("Sie haben Normalgewicht!")
        End If
        If (21 < bmiint) Then
            MsgBox ("Sie haben Übergewicht!")
        End If
    End If
 
 
End Sub

 

Die vom Debugger markierte Zeile habe ich hervorgehoben.

 

Hat jemand ne Idee woran das hängen könnte?

Vielen Dank im voraus,

Grüße

Sintho

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:
WYSIWYG-Editor, ctl00_Content_editor1



  • 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 Rechner in VBA - Laufzeitfehler
 19.11.2015 12:21:53 Sintho
NotSolved
19.11.2015 15:02:50 BigBen
NotSolved