Gedeelte van celinhoud verwijderen met VBA

[StanWolfs]

Hallo,

Ik zou graag met een VBA code in het bijgevoegde bestand de (00:00:00.000) willen verwijderen kan iemand mij hierbij helpen?
De gegevens worden uit een query gehaald.

Bekijk bijlage datum.xlsx

 

[Roeland035]

Hallo,

Ik zou graag met een VBA code in het bijgevoegde bestand de (00:00:00.000) willen verwijderen kan iemand mij hierbij helpen?
De gegevens worden uit een query gehaald.

Bekijk bijlage 237451

Option Explicit
Option Compare Text
Sub Remove()
Dim Cel As Range, Range As Range
Dim Word As String

    Set Range = Sheets("Blad1").Range("F4:F43")
    Word = "00:00:00.000"
        
    Application.ScreenUpdating = False
    For Each Cel In Range
        If Cel Like "*" & Word & "*" Then
            Cel = Replace(Cel, Word, "")
            Cel = Replace(Cel, "  ", " ")
        End If
    Next Cel
    Application.ScreenUpdating = True
End Sub

Zie Bijlage:
Bekijk bijlage datum.xlsm

 

[StanWolfs]

bedankt werkt goed!