Hallo zusammen,
ich möchte einen Umrechner in VBAerstellen. Jedoch bekomme ich die Formel für die Gewichtsumrechnung nicht hin.
Beispiel:
Eingabe Textbox1 = kcal
Eingabe Textbox2 = Fett
Auf Druck des Buttons "Berechnen" erhalte ich in Textbox4 den Punktewert auf 100g.
Nun möchte ich über die Textbox3 die Punkte für entsprechendes Gewicht berechnen, zb. 200g... Jedoch geht die Rechnung nicht auf...
Ist bestimmt wieder ganz banal... Was mache ich falsch? Kann mir jemand helfen?
Anbei meine Formel:
Private Sub CommandButton1_Click()
Dim KCAL As Integer
Dim Fett As Integer
Dim Ergebnis As String
KCAL = TextBox1.Text
Fett = TextBox2.Text
Ergebnis = (KCAL / 60) + (Fett / 9)
TextBox4.Text = Ergebnis
End Sub
Grüße
M4EX
ich möchte einen Umrechner in VBAerstellen. Jedoch bekomme ich die Formel für die Gewichtsumrechnung nicht hin.
Beispiel:
Eingabe Textbox1 = kcal
Eingabe Textbox2 = Fett
Auf Druck des Buttons "Berechnen" erhalte ich in Textbox4 den Punktewert auf 100g.
Nun möchte ich über die Textbox3 die Punkte für entsprechendes Gewicht berechnen, zb. 200g... Jedoch geht die Rechnung nicht auf...
Ist bestimmt wieder ganz banal... Was mache ich falsch? Kann mir jemand helfen?
Anbei meine Formel:
Private Sub CommandButton1_Click()
Dim KCAL As Integer
Dim Fett As Integer
Dim Ergebnis As String
KCAL = TextBox1.Text
Fett = TextBox2.Text
Ergebnis = (KCAL / 60) + (Fett / 9)
TextBox4.Text = Ergebnis
End Sub
Grüße
M4EX