Datum wird nicht als Datum erkannt / VBA
06.02.2023 19:29:54
MICHAEL
wieder mal benötige ich Eure Hilfe, da ich die Lösung nach Stunden der Recherche nicht finden kann :-(
Aus der Userform2 werden, durch den Button "Synchronisieren", die Inhalte der ComboBoxen in Zellen der "Tabelle1" geschrieben.
Klappt alles supi toll - nur scheinen die Werte in den Zellen der Tabelle1 nicht wirklich als Datum erkannt zu werden.
Dies ist mir aufgefallen, als ich eine farbliche Darstellung der Zellen in Bezug auf das heutige Datum realisieren wollte und dies nicht funktionierte.
Schaue ich mir die Eigenschaften er Zellen an, steht alles "brav" auf Datum... (tt.mmm.jjjj)
Nun kommts, klicke ich mit dem Cursor in die Zelle und wieder raus, funktioniert (die eine) Zelle auf einmal.. bzw. das Datum in dieser Zelle wird korrekt erkannt,...
Ich dreh durch ... :-)
Vielen Dank vorab für Eure Hilfe !
'Prüfen ob Datumeinsgabe in UF auch Datum ist (das gibt es für alle ComboBoxen)
Private Sub ComboBox_17_AfterUpdate() If ComboBox_17 > "" And IsDate(ComboBox_17) = False Then MsgBox "Please enter date correctly", vbCritical ComboBox_17 = "" End If End SubSomit ist die Datumseingabe ja eigentlich immer korrekt ,...
Anschließend (Button Synchro) schreiben ich die "Datums-Werte" der ComboBoxen in die entsprechenden Zellen der Tabelle 1:
Tabelle1.Cells(myrow, 17) = Format(Me.Controls("ComboBox_17"), "dd.mmm.yyyy")
Tabelle1.Cells(myrow, 19) = Format(Me.Controls("ComboBox_19"), "dd.mmm.yyyy")
Tabelle1.Cells(myrow, 20) = Format(Me.Controls("ComboBox_20"), "dd.mmm.yyyy")
Tabelle1.Cells(myrow, 22) = Format(Me.Controls("ComboBox_22"), "dd.mmm.yyyy")
Tabelle1.Cells(myrow, 23) = Format(Me.Controls("ComboBox_23"), "dd.mmm.yyyy")
und viele weitere ....
Dies kommen dann aber anscheinend nicht als Datum an, bzw. werden erst korrekt erkannt wenn man einmal in die Zelle klickt,...