Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema Label
BildScreenshot zu Label Label-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen

laufende Aktualisierung in Textbox

Betrifft: laufende Aktualisierung in Textbox von: Lorenz
Geschrieben am: 30.06.2008 11:39:22

Hallo Excelprofis.

mit folgenden Code wird in den jeweiligen Textbox_Change Ereignisssen
(TB4, TB6, TB8) in TB18 (in einer UF)der Wert eingetragen.

Private Sub TB6_Change()
On Error GoTo Rechenfehler
TB18 = ((CDbl(TB4) + CDbl(TB6) + CDbl(TB8)) / 15 * 2) + 2 
'oder TB18 = (Application.Sum((CDbl(TB4) + CDbl(TB6) + CDbl(TB8))) / 15 * 2) + 2  
Rechenfehler: Exit Sub
End Sub



Wie muß der Code lauten, daß in Echtzeit das Ergebnis immer in TB18 erscheint? Und das aber auch wenn eins der 3 Textboxen leer ist?
Danke im voraus
Lorenz

  

Betrifft: AW: laufende Aktualisierung in Textbox von: Matthias G
Geschrieben am: 30.06.2008 11:42:42

Hallo Lorenz,

vielleicht so:


TB18 = ((CDbl("0" & TB4) + CDbl("0" & TB6) + CDbl("0" & TB8)) / 15 * 2) + 2 


Gruß Matthias


  

Betrifft: laufende Aktualisierung in Textbox :-) erledigt von: Lorenz
Geschrieben am: 30.06.2008 11:48:48

Hallo Matthias!

Nicht "vielleicht so:"

sondern "genau so"

Danke, das war´s!

Gruß Lorenz


 

Beiträge aus den Excel-Beispielen zum Thema "laufende Aktualisierung in Textbox"