Textbox löschen
09.02.2005 23:27:19
walter
habe ein kleine Problem.
In meiner UF habe ich 2 Textboxen die voneinander abhängig sind.
Wenn ich in meiner Textbox7 etwas eingebe z.B. 200,00 soll die Textbox1 eingeblendet werden (das kann ich später machen) und in der TextBox1
ein Text eingegeben werden können, funktioniert auch.
Wenn ich in der Textbox7 nicht eingebe bzw.0 soll in der Textbox1 der
Text gelöscht werden.
Irgendwie funkts nicht ?
Hier mein Makro:
Private Sub TextBox7_AfterUpdate()
ThisWorkbook.Worksheets("Vertrag").Range("T50") = CDbl(Me.TextBox7)
Me.TextBox7 = Format(Worksheets("Vertrag").Range("T50").Value, ("#,##0.00"))
If TextBox7.Value = "0.00" Then Worksheets("Vertrag").Range("W51").Value = ""
End Sub
Ich möchte auch wenn in der Textbox7 ein Betrag steht und man verläßt die Textbox7, soll der Courser direkt in die Textbox1 gehen und man darf die Textbox1 erst verlassen, wenn man einen Text hinterlegt hat.
Gruß Walter