PDA

Vollständige Version anzeigen : TextBox leeren


Isabell
18.07.2014, 18:17
Hallo zusammen,
habe mal eine Frage. Ich gebe Daten über eine TextBox ein. Nach der Eingabe soll sich die TextBox aber leeren. Kann ich dies in meinen Code einfügen bzw was muss ich da eintragen! Ich benutze den Code im Anhang.
Private Sub CommandButton1_Click()
Dim Eintragung_erfolgt As Boolean 'Variable zum erkennen wann Eintragung erfolgt ist
Dim Zeile As Integer 'Abfragen der Zeilen ob diese leer sind
Eintragung_erfolgt = False
Zeile = 1
Do While Eintragung_erfolgt = False
If Tabelle2.Cells(Zeile, 2) = "" Then 'hier musst Du halt den Namen der Tabelle ggf. anpassen
Tabelle2.Cells(Zeile, 2) = TextBox1.Text 'alles Eintragen was es einzutragen gibt
Eintragung_erfolgt = True
Else
Zeile = Zeile + 1
End If
Loop
End Sub

Crazy Tom
18.07.2014, 18:27
Hallo

vielleicht hinter Loop
Textbox1 = ""

MfG Tom

Isabell
18.07.2014, 21:33
Danke Crazy Tom,
hat geklappt aber unterm Loop!

Crazy Tom
18.07.2014, 21:35
Hallo Isabell

so meinte ich das auch ;-)

MfG Tom