TextBox in Tabelle Datum Problem
08.04.2016 15:30:58
Peter
ich habe einen Fehler, den ich mir nicht erklären kann.
Ich habe eine sehr umfangreiche UF die eigentlich funktioniert. Nur die Übertragung
von UF Textbox in Tabelle geht nicht beim Datum. Wenn ich in einer Beispieldatei
die UF ausführe, wird das Datum einwandfrei übertragen. Wenn ich in die eigentliche
Datei ein neues Tabellenblatt einfüge erfolgt der Eintrag mit der selben UF einwand-
frei. Wenn ich jedoch mit der gleichen UF in die richtige Datei gehe um die Daten
zu übertragen wird statt Datum Text übertragen.
Private Sub CommandButton1_Click()
Dim xZeile As Long
Worksheets("Tabelle1").Select
If UserForm1.TextBox1 = "" Then Exit Sub
xZeile = [A65536].End(xlUp).Row + 1
TextBox1 = Format(TextBox1, "dd.mm.yyyy")
Cells(xZeile, 1) = CDate(UserForm1.TextBox1.Value)
Cells(1, 1).End(xlDown).Offset(0, 0).Select
End Sub
Besten Dank für Eure Hilfe.
Gruss Peter
Anzeige