Excel, Userform: Datum aus Textbox wird in der Zelle nicht als Datum erkannt?
Ich habe folgenden Code:
Private Sub Fertig_Click()
Dim last As Integer
last = Tabelle1.Cells(Rows.Count, 1).End(xlUp).Row + 1
Tabelle9.Cells(last, 1) = Format(Eingabe.Antragsdatum.Value, "dd.mm.yyyy")
End Sub
In der Zelle nachher wird es nicht als Datum erkannt.
Muss es aber als Datum sortieren können.
Ich habe schon viele Foreneinträge zu dem Thema gelesen, doch nichts davon funktioniert bei mir.
2 Antworten
Schau mal, ob es in VBA die Funktion CDate gibt.
Wie heißt das dann genau? Ich find das Tool nicht. Ich habe es mit "Microsoft Outlook Date Control" versucht, wie oben beschrieben zieht das Probleme mit sich.
ist kein tool.
gib im direkt bereich mal ein: ?Cdate(
dann siehst du das es das gibt,convert to Date
mit F1 hätte man aber auch dannach suchen können.
Also:
Tabelle9.Cells(last, 1) = CDate(Format(Eingabe.Antragsdatum.Value, "dd.mm.yyyy"))
oder
Tabelle9.Cells(last, 1) = CDate(Eingabe.Antragsdatum.Value)
Das ist kein Tool, sondern eine Konvertierungsfunktion, die du direkt im Code einsetzen kannst.
Vielen Dank, ich probiers gleich aus. Vielen vielen Dank, hat funktioniert. ;)
Es gibt DateControl, funktioniert aber nicht. Kommen viele Fehlermeldungen und Excel stützt ab.
Dann versuch mal, den Format-Befehl weg zu lassen und formatier die Zellen direkt im Arbeitsblatt.
Teste mal:
Tabelle9.Cells(last, 1).Value = Conversion.cDate(Format(Eingabe.Antragsdatum.Value, "dd.mm.yyyy"))
Stelle im Anschluss die Zelle mal über das Format auf "Zahl". Wenn nun eine 5 stellige Ziffer drinsteht hat es funktioniert.
ja gibt es.
genau so wie CBol,CInt,CStr,usw.