Textbox löschen

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
TextBox
Bild

Betrifft: Textbox löschen von: walter
Geschrieben am: 09.02.2005 23:27:19

Guten Abend oder vielleicht gutes Nächtle,
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
Bild


Betrifft: AW: Textbox löschen von: Willie
Geschrieben am: 10.02.2005 19:31:15

Hallo Walter

du kannst die Textboxen auf ausblenen mit z.B
Textbox7.visible = False
und einblenden gleich nur = True
mit SetFocus kannst du in autom. in die Textbox1 springen!
oder du änderst die Aktivierungsreihenfolge!
Die Mirkosoft Excel hilfe ist gar nicht so schlech wie ihr Ruf!
kopier dir einfach z.B. SetFocus setz den Cursor darauf und drücke F1
da siehst du dann auch ein Beispiel

mfG

Willie
Rückmeldung wäre nett


Bild


Betrifft: Danke von: walter
Geschrieben am: 10.02.2005 20:39:33

Hallo Willi,
Danke für den Hinweis, funktioniert.
Gruß Walter


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Textbox löschen"