macro excel zoeken vervangen

Status
Niet open voor verdere reacties.

MARINA111

Gebruiker
Lid geworden
19 sep 2014
Berichten
53
Beste

Ik ben nieuw op dit forum;m'n probleem is dat als ik onderstaande macro ingeef, hij werkt en de nulwaarden vervangt door "niets", maar als ik hem opnieuw wil gebruiken vervangt hij niets.
Kan iemand mij helpen?
Dank bij voorbaat

Code:
Sub Macro1()
'
' zoeken nulwaarden(tijd) vervangen door ""
'
    Columns("H:J").Select
    Selection.Replace What:="0:00:00", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
End Sub
 
De macro zal maar één keer wat doen; zodra je alle waarden (het gaat zo te zien om een tijd) hebt gewist, valt er niks meer te wissen. Dat lijkt mij ook goed :)
 
Ik heb er wel opnieuw nulwaarden ingeplaatst, maar die blijven staan, als ik die macro opnieuw laat lopen.
 
Marina111,

Er zit een fout in je macro, je gaat op zoek naar een tekenreeks (string) "0:00:00" terwijl je een tijd (0) zoekt.
Waarschijnlijk importeer je waarden die binnen Excel als string worden ingelezen en die je de eerste keer door middel
van bovenstaande macro kan verwijderen, maar zo gauw je er een nul inzet is het een numerieke waarde,
geen string meer en kan de macro deze ook niet meer wijzigen.
Gebruik liever de volgende macro daarvoor.

Code:
Sub Macro1()
'
' zoeken nulwaarden(tijd) vervangen door ""
'
    Columns("H:J").Select
    Selection.Replace What:=CDate("0:00:00"), Replacement:="", LookAt:=xlWhole, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
End Sub

Veel Succes.
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan