Aktualisierung von Textfeldern
09.05.2006 10:59:08
Textfeldern
Habe bei der Aktualisierung der User-Form ein kleines Problem.
Folgender Befehl habe beim Textfeld programmiert.
Private Sub textbox242_AfterUpdate()
Dim datenlager As String
'Komma und Tausenderpunkte setzen. Prüfen obe Feld leer
Select Case Len(TextBox242.Value)
Case 0
TextBox242 = 0
End Select
datenlager = Format(TextBox242.Value, "##,##0.00 ")
TextBox242.Value = datenlager
Range("b231") = TextBox242
TextBox259 = Format(Worksheets("Angemessenheit").Range("e30"), "##,##0.00 ")
End Sub
Das Problem ist, dass nicht der korrekte Wert aus Textbox259 zurückgemeldet wird. Kann es sein, dass Textbox259 nicht sofort in der Tabelle aktualisiert wird?
Wer kann mir hier helfen?
Viele Grüsse
Gert
Anzeige