Excel VBA Text zu Datum umwandeln

Leider gibt der BEx Analyzer ein Datum als Textfeld aus. Dies führt dazu, dass die Sortierung nach einem Datum nicht richtig funktioniert. Mit folgendem Code ist die Umwandlung von Text zu Datum sehr einfach möglich.

Sub Text_zu_Datum()

Dim dDate As Date

Dim Bereich As Range

Set Bereich = Range(Selection.Address)

For Each Cell In Bereich

    If IsDate(Cell.Value) Then

    

        dDate = Cell.Value

        Cell.Value = dDate

    

    End If

    

Next

End Sub

Dieser Blog ist nun unter www.reyemsaibot.com erreichbar.