Sådan udskiftes alle tegn i en tabel med andre tegn
Ved du det? Data, som du modtager fra forretningspartnere eller efter dataimporten, indeholder forkerte tegn. Det kan ske, at der vises et decimalpunkt, hvor et decimalpunkt er nødvendigt. Eller det kan ske, at der vises skråstreger mellem individuelle cifre.
Du kan bruge kommandoen REPLACE til at finde disse tegn og erstatte dem med andre tegn. Men det kræver en stor indsats, hvis du vil udføre denne proces oftere. Du sparer tid ved at udføre opgaven ved hjælp af en makro. Du kan hurtigt og let kalde denne makro igen i samme situation i fremtiden.
Hvis du vil inkludere makroen i en tom projektmappe, skal du åbne en ny projektmappe i alle versioner af Excel ved hjælp af tastekombinationen CTRL N. Tryk derefter på tastekombinationen ALT F11 for at åbne VBA -editoren. Der vælges kommandoen INSERT - MODULE. Indtast derefter følgende makro:
Skift undertegn ()
Ved fejl Genoptag næste
Dim celle som rækkevidde
Dim Søg efter As String
Dim Udskift med som streng
SearchFor = "."
ReplaceBy = ","
For hver celle i ActiveSheet.UsedRange
Cell.Value = Application.Substitute (Cell.Value, FindFor, ReplaceBy)
Næste celle
Ved fejl GoTo 0
Afslut Sub
Makroen erstatter decimaltegnet med et decimalpunkt i alle celler, der bruges i det aktive regneark. For at kalde makroen skal du aktivere det ønskede regneark, trykke på tastekombinationen ALT F8 og vælge makroen CHARACTER EXCHANGE.
For at kontrollere, hvilket indhold der søges efter og erstattes, skal du justere de to variabler SUCHENNACH og REPLACE BY i makroen.
