Office: (Office 2007) Datumsformat mittels VBA Textbox festlegen

Guten Tag in die Runde.
Bin mal wieder auf der Suche nach einer Lösung und bitte um Unterstützung.
In der Textbox 8, 9, 10, 11 soll entsprechend das Datum bei der Eingabe formatiert werden.
Ich gebe z. B. 1.2.18 ein und das Ergebnis soll 01.02.2018 sein, also eine Vereinfachung bei der Eingabe.
Danke für eure Unterstützung bei der Lösung meines Problems.
Gruß Culli
Mein VBA Textbox- Code:
TextBox6 = Tabelle4.Cells(lZeile, 7).Value
TextBox7 = Tabelle4.Cells(lZeile, 8).Value
TextBox8 = Tabelle4.Cells(lZeile, 9).Value.NummerFormat = "dd.mm.yyyy"
TextBox9 = Tabelle4.Cells(lZeile, 10).Value.NummerFormat = "dd.mm.yyyy"
TextBox10 = Tabelle4.Cells(lZeile, 11).Value.NummerFormat = "dd.mm.yyyy"
TextBox11 = Tabelle4.Cells(lZeile, 12).Value.NummerFormat = "dd.mm.yyyy"

:)

 

Moin!
Du solltest Dich ein wenig mehr mit VBA beschäftigen.
Dein "Code" hat nicht viel damit zu tun.

Zum Thema:
Code:

Du solltest aber vorher mittels IsDate() überprüfen, ob überhaupt ein Datum in der Zelle steht.
Code:

Gruß Ralf

 

Danke für die schnelle Hilfe. Muss aber noch eine Frage stellen. Wenn ich z. B. einen Wert eingegeben habe und ihn abspeichere, erscheint er in "Kurzform" in der Tabelle. Der Befehl zum umsetzen in das gewünschte Datumsformat geschieht erst viel Später. Erst nach erneutem Auswählen der Userform ist das Datum wie es gewollt ist, in derselben und dann auch in der Datei wie gewollt formatiert. Habe ich vielleicht etwas vergessen, wenn ich den geänderten Datensatz abspeichere?
Die 4 Spalten sind natürlich Datumsfelder, weil ich der Ersteller der Tabelle bin, und die Felder entsprechend formatiert habe. Lt. Formatierung Typ = *01.01.1999

Danke und Gruß Culli

 

Du musst halt vice versa vorgehen.
Zunächst (so gehe ich in der Regel vor), musst Du nach Änderung des Datums überprüfen, ob Deine Änderung ein gültiges Datum ist.
Ein gültiges Datum ist z.B. 15-6 für den 15.06.2017
So gebe ich grundsätzlich ein Datum ein, da man es extrem schnell über den Nummernblock eingeben kann.
Die Überprüfung sieht so aus:

Die Übergabe an die Tabelle erfolgt dann mittels
Tabelle4.Cells(lZeile, 9) = CDate(TextBox8)
Da jetzt eine ZAHL übergeben wird, wird automatisch das zugewiesene Zahlenformat (Datum) angewendet.

Gruß Ralf

 

Danke für den Hinweis:
Ein gültiges Datum ist z.B. 15-6 für den 15.06.2017
Mit dieser Eingabe (15-6) also Bindestrich erscheint das Datum direkt wie gewünscht.

Man muss es sich nur bei der Eingabe merken, und nicht in den alten Trott verfallen.
Danke und Gruß Culli