0-1-1900 vervangen

[Albatros]

Hoi,

Via een programma krijg ik een download van gegevens naar Excel.
Daar waar geen waarden staat, komt er een "0 "te staan
Deze kan ik vervangen door een lege cel, of "-"
Echter als er geen datum is ingevuld komt er 0-1-1900 te staan.
Via Start - zoeken en sorteren - vervangen, in het lint, krijg ik de celwaarde 0-1-1900 vervangen door "- ".
Helaas lukt mij dit niet mbv een macro, of macrorecorder opname.
Mogelijk heeft iem. hier een oplossing voor.
Zie bijlage

Albatros

 

[jos1982]

Hoi Albatros,

hiermee moet het volgens mij lukken:

Sub verwijderendatum()
'
' verwijderendatum Macro
'

'
Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
Range("A1:A500").Select
Selection.Replace What:="0-1-1900", Replacement:="", LookAt:=xlWhole, _
SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End Sub

gr Jos

 

[edmoor]

Vervang 0-1-1900 door niks.



*Edit:
Botsing met Jos die hetzelfde doet maar dan met een macro.

 

[JeanPaul28]

hier een poging

 

[Albatros]

Hoi,

Bedankt voor het meedenken.
Echter de macro die werkt, is die van Jeanpaul :thumb: :thumb:

Eenieder bedankt!

Albatros

 

[edmoor]

Als het maar opgelost is

 

[jos1982]

Als het maar opgelost is

Precies!