Textbox auf Eingabe Prüfen
Volker
ich versuche mittels nachstehendem Code die Daten an eine Tabelle zu übergeben.
Die Textboxen werden über eine Listbox dblClick in die Textboxen übernommen. Hier werden sie bearbeitet
und zurückgeschrieben.
Was mir probleme macht ist Cdate. In der Tabelle kommt nur Text an. Auch dann wenn in der Userform-textbox händisch ein Datum eingegeben wird es bleibt beim Text.
Hat da jemand eine Idee?
Zweite Frage:
Es kann sein das nach der Bearbeitung der Textboxinhalte ein Feld in dem ein Datum eingetragen werden müsste leer bleibt. Wenn ich die Daten an die Tabelle zurückgeben will. Schickt Excel mir eine Fehlermeldung.
Wie kann ich Excel vorher sagen das wenn die betreffende Textbox leer ist die Zielzelle auch leer sein soll?
Hier der Code:
Private Sub CommandButton3_Click()
Dim rng As Range
Set rng = Sheets("Mitarbeiterliste").Range("B:B").Find(What:=TextBox2.Text, Lookat:=xlWhole, _
LookIn:=xlValues)
If Not rng Is Nothing Then
Sheets("Mitarbeiterliste").Select
rng.Select
ActiveCell.Offset(0, -1) = TextBox1.value 'Personalnummer
ActiveCell.Offset(0, 1) = TextBox3.value 'Vorname
ActiveCell.Offset(0, 2) = Format(CDate(TextBox8.Value), "dd.mm.yyyy") 'FE gültig bis
ActiveCell.Offset(0, 5) = TextBox9.value 'Modul 1
ActiveCell.Offset(0, 6) = TextBox10.value 'Modul 2
ActiveCell.Offset(0, 7) = TextBox11.value 'Modul 3
ActiveCell.Offset(0, 8) = TextBox12.value 'Modul 4
ActiveCell.Offset(0, 9) = TextBox33.value 'Modul 5
ActiveCell.Offset(0, 10) = TextBox4 .value 'Straße
ActiveCell.Offset(0, 11) = TextBox5.value 'PLZ
ActiveCell.Offset(0, 12) = TextBox6.value 'Ort
ActiveCell.Offset(0, 14) = Format(CDate(TextBox13).value, "dd.mm.yyyy")
Cells(1, 1).Select
Unload UserForm2
End If
End Sub
Danke fürs lesen
Gruss Volker
Anzeige