Manchmal muss ich Datenbankinhalte für Präsentationen oder Statistiken in Excel übertragen. Dabei kommt es in letzter Zeit recht häufig vor das er einzelne Datumsangaben nicht sauber von Excel als solche ausgegeben werden. Es scheint sich dabei um ein Problem mit den angegebenen Millisekunden zu handeln. Merkwürdig ist jedenfalls das das immer nur verstreute einzelne Zellen betrifft. Abhilfe schafft nur das entfernen der letzten vier Zeichen jeder betroffenen Zelle. Dann kann Excel auch wieder Datumsfunktionen auf diese Werte anwenden.

Um diesen Schritt ein wenig zu unterstützen ist es nützlich die entsprechende Spalte zu sortieren die fraglichen Zellen zu markieren und das folgende Makro auszuführen:

Sub Cut4Chars()
'
' Cut4Chars Makro
' by Sebastian Spautz
'
For Each c In Selection
    c.Value = Left(c.Text, Len(c.Text) - 4)
Next c
End Sub