Textboxen werden nicht geleert
23.12.2005 09:13:00
GeorgK
kann mir bitte jemand sagen, warum die Textboxen nicht geleert werden und was ich ändern muss.
Nach der Datenübernahme stehen in den Textboxen immer die Angaben der 1.Zeile des TB (Überschriften).
Die Combobox wird geleert.
Private Sub CommandButton19_Click()
Frame2.Visible = False
CommandButton18.Visible = False
CommandButton21.Visible = True
Label140.Visible = True
Sheets("Aktion").Activate
Dim Loletzte As Long
Loletzte = Sheets("Aktion").UsedRange.SpecialCells(xlCellTypeLastCell).Row
Cells(Loletzte + 1, 2) = TextBox17
Cells(Loletzte + 1, 3) = TextBox18
Cells(Loletzte + 1, 4) = TextBox106
Cells(Loletzte + 1, 5) = TextBox2
Cells(Loletzte + 1, 6) = TextBox16
Cells(Loletzte + 1, 7) = TextBox3
Cells(Loletzte + 1, 8) = TextBox4
Cells(Loletzte + 1, 9) = TextBox5
Cells(Loletzte + 1, 10) = TextBox6
Cells(Loletzte + 1, 11) = TextBox7
Cells(Loletzte + 1, 12) = TextBox8
Cells(Loletzte + 1, 13) = TextBox9
Cells(Loletzte + 1, 14) = TextBox10
Cells(Loletzte + 1, 15) = TextBox11
Cells(Loletzte + 1, 16) = TextBox12
Cells(Loletzte + 1, 17) = TextBox15
Cells(Loletzte + 1, 18) = TextBox13
Cells(Loletzte + 1, 19) = TextBox14
Cells(Loletzte + 1, 20) = TextBox1
TextBox17.Text = ""
TextBox18.Text = ""
TextBox2.Text = ""
TextBox106.Text = ""
TextBox16.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
TextBox7.Text = ""
TextBox8.Text = ""
TextBox9.Text = ""
TextBox10.Text = ""
TextBox11.Text = ""
TextBox12.Text = ""
TextBox15.Text = ""
TextBox13.Text = ""
TextBox14.Text = ""
TextBox99.Text = ""
ComboBox6.Text = ""
End Sub
Vielen Dank und Grüße
Georg