Ich dachte nicht, dass mir VBA Probleme machen würde, doch anscheinend doch. Ich programmiere seit gut drei Jahren und das, was am einfachsten ist, bringt mich gerade zum Verzweifeln. Es liegt aber auch daran, dass ich mich in VBA nicht gut auskenne.
Hier mein Problem:
Ich habe eine Userform mit zwei Textboxen. In die Textbox1 schreibe ich einen Wert hinein. Dieser Wert multipliziert sich dann mit dem Wert 61,7 aus der Spalte G2. Das Resultat erscheint anschließend in der Textbox2 mit der Währung CHF hintendran.
Das ist mein Code:
Private Sub CommandButton1_Click()
Unload Me
End Sub
Private Sub TextBox1_Change()
On Error Resume Next
TextBox2.Value = TextBox1.Value * Tabelle1.Range("g2").Value
End Sub
Private Sub TextBox2_Change()
On Error Resume Next
If TextBox2 <> "" Then
TextBox2 = Format(TextBox2, "##,##0.00 Fr.")
End Sub
Private Sub UserForm_Click()
End Sub
Nach meinen Erfahrungen her stimmt der Code. Es scheitert jedoch beim multiplizieren, denn für mein Programm ist 1 x 64,7 = 22’463.00 CHF.
