Alle tekens in een tabel vervangen door andere tekens
Weet je dat? Gegevens die u ontvangt van zakenpartners of na de gegevensimport bevatten onjuiste tekens. Het kan voorkomen dat een decimaalteken verschijnt waar een decimaalteken nodig is. Of het kan gebeuren dat er slashes verschijnen tussen individuele cijfers.
U kunt de opdracht REPLACE gebruiken om deze tekens te vinden en ze te vervangen door andere tekens. Maar het kost veel moeite als je dit proces vaker wilt doen. U bespaart tijd door de taak uit te voeren met behulp van een macro. U kunt deze macro in de toekomst in dezelfde situatie snel en eenvoudig weer oproepen.
Als u de macro in een lege werkmap wilt opnemen, opent u een nieuwe werkmap in alle versies van Excel met de toetscombinatie CTRL N. Druk vervolgens op de toetsencombinatie ALT F11 om de VBA-editor te openen. Selecteer daar de opdracht INSERT - MODULE. Voer vervolgens de volgende macro in:
Subtekens omwisselen ()
Bij fout Hervatten Volgende
Dim cel als bereik
Dim Zoeken naar As String
Dim vervangen door As String
Zoeken naar = "."
VervangenDoor = ","
Voor elke cel in ActiveSheet.UsedRange
Cell.Value = Application.Substitute (Cell.Value, FindFor, ReplaceBy)
Volgende cel
Bij fout Ga naar 0
Einde sub
De macro vervangt de komma door een komma in alle cellen die in het actieve werkblad worden gebruikt. Om de macro op te roepen, activeert u het gewenste werkblad, drukt u op de toetsencombinatie ALT F8 en selecteert u de macro CHARACTER EXCHANGE.
Om te bepalen welke inhoud wordt gezocht en vervangen, past u de twee variabelen SUCHENNACH en REPLACE BY in de macro aan.
