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:35:05

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 leer werden.
Wenn OptionButton2 angeklickt ist, sollen
TextBox1, TextBox3 und TexBox4 leer werden.
Wenn OptionButton3 angeklickt ist, sollen
TextBox1, TextBox2 und TexBox4 leer werden.
Wenn OptionButton4 angeklickt ist, sollen
TextBox1, TextBox2 und TexBox3 leer werden.

Ich habe so versucht das 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: Markus
Geschrieben am: 22.05.2002 - 09:55:45

Versuch es mal so:
Private Sub OptionButton1_Click()
If UserForm1.OptionButton1 = True Then
If UserForm1.TextBox2.Text <> "" Then
UserForm1.TextBox2.Value = ""
End If
If UserForm1.TextBox3.Text <> "" Then
UserForm1.TextBox3.Value = ""
End If
If UserForm1.TextBox4.Text <> "" Then
UserForm1.TextBox4.Value = ""
End If
End If
End Sub

Bessere lösung wäre die folgende, weil Du nicht überprüfen musst ob etwas in dem Textfeld drin steht, wenn Du den Inhalt sowieso löschen willst!

Private Sub OptionButton1_Click()
If UserForm1.OptionButton1 = True Then
UserForm1.TextBox2.Value = ""
UserForm1.TextBox3.Value = ""
UserForm1.TextBox4.Value = ""
End If
End Sub
End With
End If
TextBox1.SetFocus
End Sub

Gruss Markus

nach oben   nach unten

Re: TextBox entleeren
von: jusuf
Geschrieben am: 22.05.2002 - 10:06:01

Hallo Markus

Danke dir für schnelle Info, Ich werde es gleich ausprobieren!


nach oben   nach unten

Re: TextBox entleeren
von: jusuf
Geschrieben am: 22.05.2002 - 10:09:00

Hallo Markus,

danke dir für schnelle Info, ich werde es gleich ausprobieren!


nach oben   nach unten

Re: TextBox entleeren
von: jusuf
Geschrieben am: 22.05.2002 - 10:10:00

Hallo Markus,

danke dir für schnelle Info, ich werde es gleich ausprobieren!


nach oben   nach unten

Re: TextBox entleeren
von: jusuf
Geschrieben am: 22.05.2002 - 10:10:11

Hallo Markus,

danke dir für schnelle Info, ich werde es gleich ausprobieren!


nach oben   nach unten

Re: TextBox entleeren
von: jusuf
Geschrieben am: 22.05.2002 - 10:10:17

Hallo Markus,

danke dir für schnelle Info, ich werde es gleich ausprobieren!


nach oben   nach unten

Re: TextBox entleeren
von: jusuf
Geschrieben am: 22.05.2002 - 10:10:25

Hallo Markus,

danke dir für schnelle Info, ich werde es gleich ausprobieren!


nach oben   nach unten

Re: TextBox entleeren
von: jusuf
Geschrieben am: 22.05.2002 - 10:10:58

Hallo Markus,

danke dir für schnelle Info, ich werde es gleich ausprobieren!


nach oben   nach unten

Re: TextBox entleeren
von: jusuf
Geschrieben am: 22.05.2002 - 10:12:34

Hallo Markus,

danke dir für schnelle Info, ich werde es gleich ausprobieren!


nach oben   nach unten

Re: TextBox entleeren
von: jusuf
Geschrieben am: 22.05.2002 - 10:12:39

Hallo Markus,

danke dir für schnelle Info, ich werde es gleich ausprobieren!


nach oben   nach unten

Re: TextBox entleeren
von: jusuf
Geschrieben am: 22.05.2002 - 12:11:38

Hallo Markus,

habe ausprobiert, es functioniert in beiden Fällen, wenn
TextBox1 bis TexBox4 nicht über ControlSource-Eigenschaft mit Tabelle1 verbunden wären. Habe nicht erwähnt das ControlSource im Spiel ist.

Dann habe ich so probiert:

Private Sub OptionButton1_Click()
If UserForm1.OptionButton1 = True Then
Loeschen
End If
TextBox1.SetFocus
End Sub

Sub Loeschen()
Sheets("Tabelle1").Select
Range("A2:D2").ClearContents
End Sub

und functioniert prima.

Noch einmal vielen Dank für Deine Hilfe.

mvG, Jusuf


nach oben   nach unten

Re: TextBox entleeren
von: Jusuf
Geschrieben am: 22.05.2002 - 15:07:35

Hallo Markus,

habe ausprobiert, es functioniert in beiden Fällen, wenn
TextBox1 bis TexBox4 nicht über ControlSource-Eigenschaft mit Tabelle1 verbunden wären. Habe nicht erwähnt das ControlSource im Spiel ist.

Dann habe ich so probiert:

Private Sub OptionButton1_Click()
If UserForm1.OptionButton1 = True Then
Loeschen
End If
TextBox1.SetFocus
End Sub

Sub Loeschen()
Sheets("Tabelle1").Select
Range("A2:D2").ClearContents
End Sub

und functioniert prima.

Noch einmal vielen Dank für Deine Hilfe.

mvG, Jusuf

 nach oben

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