Hvordan erstatte alle tegn i en tabell med andre tegn
Visste du at? Data du mottar fra forretningspartnere eller etter dataimporten inneholder feil tegn. Det kan skje at et desimaltegn vises hvor som helst et desimalpunkt er nødvendig. Eller det kan skje at skråstreker vises mellom individuelle sifre.
Du kan bruke REPLACE -kommandoen for å finne disse tegnene og erstatte dem med andre tegn. Men det krever mye innsats hvis du vil gjøre denne prosessen oftere. Du sparer tid ved å utføre oppgaven med en makro. Du kan kalle denne makroen igjen raskt og enkelt i samme situasjon i fremtiden.
For å inkludere makroen i en tom arbeidsbok, åpner du en ny arbeidsbok i alle versjoner av Excel ved hjelp av tastekombinasjonen CTRL N. Trykk deretter på tastekombinasjonen ALT F11 for å åpne VBA -editoren. Der velger du kommandoen INSERT - MODULE. Skriv deretter inn følgende makro:
Bytt undertegn ()
Ved feil Fortsett neste
Dim Cell As Range
Dim Søk etter As String
Dim Erstatt med As -streng
SearchFor = "."
ReplaceBy = ","
For hver celle i ActiveSheet.UsedRange
Cell.Value = Application.Substitute (Cell.Value, FindFor, ReplaceBy)
Neste celle
Ved feil GoTo 0
Slutt Sub
Makroen erstatter desimaltegnet med et desimalpunkt i alle cellene som brukes i det aktive regnearket. For å ringe makroen, aktiver det ønskede regnearket, trykk på tastekombinasjonen ALT F8 og velg makroen TEKNISBYTTE.
For å kontrollere hvilket innhold det søkes etter og erstattes, juster de to variablene SUCHENNACH og REPLACE BY i makroen.
