Textboxen nach ablegen Werte leeren
03.09.2020 18:12:40
Michael
Welcher Codebefehl muss in folgenden Code rein um nach ablegen Werte aus Textboxen, diese Textboxen wieder zu leeren,
für die nächsten Eingaben.
Private Sub CommandButton1_Click()
'Daten in Tabelle schreiben
Dim source As Variant, destination As Variant
Dim v As Variant
Dim erg As Variant
source = Array(CDate(TextBox1.Text), CDbl(TextBox2.Text), CDbl(TextBox3.Text), CDbl( _
TextBox4.Text), CDbl(TextBox5.Text), CDbl(TextBox6.Text), CDbl(TextBox7.Text), CDbl(TextBox8. _
Text))
Set destination = Sheets("Ziehung-Samstag").Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize( _
_
, UBound(source) + 1)
destination.Value = source
v = Application.Match(CLng(CDate("01.01.2021")), ThisWorkbook.Worksheets("Ziehung-Samstag" _
_
).Range("A:A"), 0)
MsgBox "Datum" & Me.TextBox1 & " Datum schon vorhanden! "
Exit Sub
Else
End If
'MsgBox v
MsgBox "Datum" & Me.TextBox1.Text & " Datum schon vorhanden! "
TextBox1.Value = ""
End Sub
Gruß
Michael