TextBox löschen
19.07.2003 11:33:03
peter
ich trage über ein userform namen ein der code lautet:
Private Sub CommandButton1_Click()
Dim z As Long
If TextBox1 = "" Or TextBox2 = "" Then
MsgBox "Es müssen beide TextBoxen ausgefüllt sein."
Exit Sub
End If
With Sheets("Daten")
z = .Range("A65536").End(xlUp).Row + 1
If z > 65000 Then
z = 2
.Rows(65000).EntireRow.Delete
.Rows(2).EntireRow.Insert
End If
.Cells(z, 1) = TextBox1
.Cells(z, 2) = TextBox2
End With
Sortieren
End Sub
jetzt will ich aber noch, das wenn man eingetragen hat, die TextBox1 und TextBox2 wieder leer ist.
danke im voraus
gruß
peter