Textbox 1 ist mit einer Zelle verbunden. In der Zelle steht 24:01 und ist formatiert [h]:mm;@
Mein Probleme ist die CDate Formatierung
Das ist mein Code:
Private Sub TextBox1_Change()
TextBox1 = Format(CDate(TextBox171), "hh:mm")
End Sub
Der Code funktioniert ja auch, aber wenn es über die 24 stunden geht. Dann geht der Code nicht mehr richtig. Bei diesem Code kommt nur die zahl raus:0:01
Ich habe auch schon einen anderen Code ausprobiert:
Private Sub TextBox1_AfterUpdate()
TextBox1 = Format(CDate(TextBox1), "[hh]:mm")
End Sub
bei diesem Code kommt nur die zahl raus: 1,00069444444444
Was mache, ich falsch kann jemand helfen?
Gruß Steffen A