VBA Textfeld addieren?
Hallo,
ich habe mir in Excel eine Userform erstellt und mit 2 Textfeldern, 1 Beschriftungsfeld und 1 Button. Wenn man den Button clickt soll er die Werte aus den Textfeldern auslesen addieren und in dem Beschriftungsfeld ausgeben.
Hat jemand eine Idee wie ich das machen kann?
1 Antwort
In dem Click Event von deinem Button:
Dim Ergebnis as double
Ergebnis = Conversion.cdbl(Textfeld1.Text) + Conversion.cdbl(Textfeld2.Text)
Label1.Caption = Ergebnis.
Anmerkung.
Wird im Textfeld KEINE (Komma-) Zahl eingegeben crash dieser Code.
Sub textfeldAddieren()
On Error GoTo ErrorHandling
[...]
ErrorHandling:
MsgBox "Folgender Fehler ist aufgetreten: " & Err.Number & Err.Description
End Sub
Nimm die Error Behandlung mal raus und Test einfach mit Ziffern die im Textfeld eingegeben werden. Die Fehlermeldung bezieht sich darauf , dass ein Objekt "fehlt oder unbekannt" ist. Ich tippe auf letzteres, denn wir können nicht wissen wie deine UserForm und dein Button heißt. Ggf hilft auch schon: "Public" Sub...
Bevor also Code entsteht, muss du dich ein wenig mit dem Aufbau des Programmes, Userform, Elemente darin und deren Wirkungsweise auseinandersetzen. Für alles gibt es Tutorials auf Youtube.
Wenn ich das genau so schreibe kommt
Laufzeitfehler´424´:
Objekt erforderlich
was soll ich tun?