Office: TextBox mit Datum als Formatierung

Hallo Community,

über eine auf ein UserForm vorhandene TextBox kann der User ein Datum eingeben. Dieser Wert wird anschließend an eine bestimmte Zelle der aktive Zeile übergeben. Schlussendlich soll die Tabelle (via VBA) nach der Spalte "Datum" sortiert werden. Hier hat sich nun herausgestellt, dass der Sortierschlüssel Zahlen enthält, die als Text formatiert wurden, was schlussendlich eine falsche Sortierreihenfolge ergibt.

Die Zelle ist zwar als "Datum" formatiert, jedoch wird der zuvor über die TextBox eingegebene Wert nicht als Datum an die Zelle übergeben.

Folgender Code
Code:

schafft leider keine Abhilfe.

Wie muss der Code nun angepasst werden, damit der übergebene Wert als "wahres" Datum an die Zelle übergeben wird, um am Ende eine korrekte Sortierung zu erzielen?

Danke für eure Unterstützung,
Pit

PS: Eine Absicherung, dass tatsächlich ein Wert entsprechend der Angabe eines Datums in der TextBox eingegeben wurde, würde abschließend mit einfließen.

:)

 

Moin
Ungetest, sollte aber klappen. textbox gibt immer Text aus also umwandeln
Format(CDate(TextBox1.Value), "dd.MM.yyyy")
oder
Format(Clng(TextBox1.Value), "dd.MM.yyyy")
gruss hary

 

Hallo Pit,

hier mein Versuch: Code:

Gruß von Luschi
aus klein-Paris

 

Hallo ihr beiden,

und vielen Dank für eure Hilfe!

@hary
Ich hab's mit beiden Vorschlägen probiert. Leider ohne Erfolg. Beim ersten Beispiel liegt das Problem, das der Wert als Text vorliegt, weiterhin vor. Beim letzteren Beispiel "wandelt" er mir quasi das eingegebene Datum in ein "anderes" Datum um - bspw. aus "01.01.2013" wird "17.10.4670".

@Luschi
Mit deinem Code klappt es hervorragend. Ich habe diesen wie folgt übernommen:
Code:

Müsste ich nun der Sicherheit halber NumberFormat mit angeben, da die Zellen der Spalte im Grunde genommen mit Datum "vorformatiert" sind?

 

Hallo Pit,

Ist sehr stabil.

Code:

 

Hallo Pit,

Fragen:
- was machst Du, wenn der User Blödsinn in die Textbox schreibt?
- warum verläßt Du Dich auf die Standardeigenschaft/-methode von Cells, die M$ definiert hat? Gerade von dieser Firma ist man doch den Wechsel gewohnt!

Wenn Du vor dem Zigarettenautomat stehst, dann mußt Du auch auf die richtige Taste (sprich Eingenschaft/Methode) drücken, damit die Lieblingssorte auch rauskommt.
Fazit: Um auch nach einiger Zeit den Programmcode noch schnell und richtig zu lesen, sollte man doch auch das hinschreiben, was man meint.
Und grundsätzlich jede Usereingabe im Steuerelement testen, testen, testen...

Gruß von Luschi
aus klein-Paris

 

\@Luschi

Ähnlich wie hier aufgezeigt, wird die Eingabe des Wertes (Datum) in die TextBox überprüft. Ansonsten ein großes Dankeschön für den Hinweis/Ratschlag - ich habe den Part .NumberFormat nun hinzugefügt.

@Harry
Auch mit dieser Variante erziele ich das gewünschte Ergebnis. Hervorragend!

Ein herzliches Dankschön euch allen für euer Engagement! Erstklassiges Unterstützung!

Pit