habe in einer Userform 3 Textboen wo m² eingeben werden sollen. In TB4 soll dann stets die Summe angezeigt werden. Wenn eine der TB1-3 leer ist, soll diese den Wert 0 anzeigen.
Wie geht das ? Habe einiges Versucht - komme aber irgendwie nicht weiter.
Dachte an:
bei TB1-3_change...=Berechnen auslösen
Private Sub Berechnen()
TB4 = CDbl(TB1) + CDbl(TB2) + CDbl(TB3)
End Sub
sowie sicherstellen, dass in jeder der Textboxen Zahlen eingetippt werden:Bsp. für TB3 (1-2 sehen ebenso aus)
Private Sub TB3_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case 48 To 57
Case Else:
KeyAscii = 0
End Select
End Sub
Bitte um Hilfe...Gruß und Danke !
Kay