Und bei 153 nur eine 0, also 1530.
Bitte um eure Hilfe
Private Sub Worksheet_Change(ByVal T As Range)
'ACHTUNG, MOMENTAN FEHLERHAFT
'Ereignis in den Code der gewünschten Tabelle kopieren
'Vorher B:B als Zeit formatieren und dort Shortcutzeiten eingeben
'Shortcuts siehe http://xxcl.de/0018.htm
If T.Column = 2 Then
Application.EnableEvents = False
T = "=--TEXT(LEFT(SUBSTITUTE(IF(ABS(CODE(" & T & ")-54)