Hej

Jag har en excel fil med flera blad
och i varje blad så har jag ett datum som är skriven

2015-01-25


Dessa vill jag att de ska bytas ut mot
2015-01-23


min kod ser ut så här i dagsläget

Sub findandreplace()
Dim ws As Worksheet
For Each ws In Worksheets
With ws
.Cells.replace What:="2015-01-25", Replacement:="2015-10-23", LookAt:= _
xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End With
Next ws
End Sub

Jag får den inte att fungera på nummer endast på text.

dvs byter jag ut 2015-01-25 mot AAA och sen 2015-10-23 mot BBB
så funkar det. Den hittar alla AAA och byter ut dessa mot BBB i alla blad.

Jag vill att den ska fungera för datum dvs åååå-mm-dd

Tack för hjälpen på förhand.