TextBox entleeren

Informationen und Beispiele zu den hier genannten Dialog-Elementen:


Excel-Version: Alle Versionen
nach unten

Betrifft: TextBox entleeren
von: jusuf
Geschrieben am: 22.05.2002 - 09:22:14

Hallo Forum,

folgendes ist auf UserForm1 vorhanden:

OptionButton1, OptionButton2, OptionButton3 und OptionButton4
TextBox1, TextBox2, TextBox3 und TextBox4

Wenn OptionButton1 angeklickt ist, sollen
TextBox2, TextBox3 und TexBox4 entleert werden.
Wenn OptionButton2 angeklickt ist, sollen
TextBox1, TextBox3 und TexBox4 entleert werden.
Wenn OptionButton3 angeklickt ist, sollen
TextBox1, TextBox2 und TexBox4 entleert werden.
Wenn OptionButton4 angeklickt ist, sollen
TextBox1, TextBox2 und TexBox3 entleert werden.

Ich habe versucht das so hinzubekommen, bin
aber gescheitert. Bitte Euch alle um Hilfe.

Private Sub optButton1_Click()
If UserForm1.optButton1 = True Then
With Selection
If UserForm1.TextBox2.Value <> 0 Then
UserForm1. TextBox2.Value = ""
ElseIf UserForm1.TextBox3.Value <> 0 Then
UserForm1.TextBox3.Value = ""
ElseIf UserForm1.TextBox4.Value <> 0 Then
UserForm1.TextBox4.Value = ""
End If
End With
End If
TextBox1.SetFocus
End Sub

Bis bald

Jusuf


nach oben   nach unten

Re: TextBox entleeren
von: Hajo
Geschrieben am: 22.05.2002 - 09:39:33

Hallo Jusuf

warum With selection??? Ich vermute mal die Textboxen und OpptionsButton sind in der gleichen Userform


Private Sub optButton1_Click()
    If UserForm1.optButton1 = True Then
       TextBox2.Value = ""
       TextBox3.Value = ""
       TextBox4.Value = ""
       TextBox1.SetFocus
    End If
End Sub


Gruß Hajo


nach oben   nach unten

Re: TextBox entleeren
von: Hajo
Geschrieben am: 22.05.2002 - 09:40:13

Hallo Jusuf

warum With selection??? Ich vermute mal die Textboxen und OpptionsButton sind in der gleichen Userform


Private Sub optButton1_Click()
    If UserForm1.optButton1 = True Then
       TextBox2.Value = ""
       TextBox3.Value = ""
       TextBox4.Value = ""
       TextBox1.SetFocus
    End If
End Sub


Gruß Hajo


nach oben   nach unten

Re: TextBox entleeren
von: Jusuf
Geschrieben am: 22.05.2002 - 15:26:15

Hallo Hajo,

Du hast vollkommen Recht, alle Textboxen und OpptionsButton sind in der gleichen Userform. Lösung ist gefunden. Ich konnte mich bis jetzt für Deine Hilfe nicht bedanken - Rechnerabsturz.
Also Danke Dir vielmals. Ich gebe mir mühe VBA zu lernen, und mache viele Fehler. Ich werde mich bessern.

mvG

Jusuf


 nach oben

Beiträge aus den Excel-Beispielen zum Thema "TextBox entleeren"