макрос на поиск и замену. Что не так?

[Viento]

Доброго всем времени суток. Ниже представленный макрос должен найти во всех ячейках листа значение "01.01.1900 " и удалить его. Дело в том, что ячейки, где расположены эти значения выглядят следующим образом:
ПРИМЕР: "01.01.1900 03:23:12"

Sub Макрос1()

    Cells.Replace What:="01.01.1900  ", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
End Sub

Заранее спасибо!

С Уважением Б.К.

[EducatedFool]

Попробуйте так:

Sub test()
    [a1:d15].NumberFormat = "hh:mm:ss"
End Sub

Содержимое ячейки не меняется, зато отображается в ячейках теперь только время.

Поиском подстроки 01.01.1900 с последующей заменой проблемы не решить...

[Viento]

Уважаемый Education Fool. Дело в том, что мне необходимо оставить в ячейке только время а дату удалить. Возможно ли это? дата она же не изменчивая, нельзя при помощи макрос найти в ячейке дату и удалить её, а остальное значение оставить?

[EducatedFool]

Дата и время неотделимы друг от друга.
Можно изменить формат ячейки (чтобы отображалось что-то одно), но удалить только дату не выйдет. Да и зачем?

Можно в ячейку записать значение времени в виде текста, но тогда сортировка по времени будет работать некорректно.

Ваш макрос просто на находит в ячейках нужное значение даты (пока формат ячеек установлен как Дата \ Время)

мне необходимо оставить в ячейке только время а дату удалить

А чем, собственно, эта дата Вам мешает?
Поставьте формат ячеек в виде "hh:mm:ss", и больше не будете видеть эту дату.
Для этого никаких макросов не нужно.

[Viento]

Да, дела! Мне нужно это так как на эти ячейки у меня обращается формула с использованием время(12;21;28). у ладно буду в ручную через ctrl+H
Спасибо!

[EducatedFool]

А какие проблемы с формулой?

Функции Час, минуты, секунды возвращают соответствующие значения независимо от того, отображается в ячейке дата, или нет.

Пример формулы:

=ЧАС(B31)&" часов "&МИНУТЫ(B31)&" минут "

=ВРЕМЯ(ЧАС(B32);МИНУТЫ(B32);СЕКУНДЫ(B32))

И никаких Ctrl + H ...

[Viento]

Спасибо! Постараюсь применить Вашу идею с формулой. Я как то сразу не дошел до этого!