Du kan nemt erstatte alle umlauts ved hjælp af en makro
Det er normalt ikke så stort et problem, som det var for et par år siden, men umlauts kan stadig forårsage problemer, når der udveksles data. Følgende figur viser en tabel med tekster, der indeholder umlauts:
Hvis du har brug for at udveksle oplysninger med andre systemer eller sende data til andre lande, kan det derfor være nyttigt at udskifte alle umlauts i en tabel. Du erstatter ä med en ae, ö med en oe osv.
Selvfølgelig kan du gøre dette ved gentagne gange at kalde funktionen EDIT - REPLACE. Men det er meget arbejde. Hvis du vil udskifte alle tre umlauts ä, ö og ü i store og små bogstaver samt ß, skal du udføre syv udskiftningsoperationer i træk.
Det er lettere med en makro. Her er den relevante programkode:
Sub ReplaceUmlauts ()
Dim celle som rækkevidde
Med Application.WorksheetFunction
For hver celle i markering
Cell.Value = .Substitute (.Substitute (.Substitute (.Substitute (_
.Substitute (.Substitute (.Substitute (Cell.Value, "ä", "ae"), _
"ö", "oe"), "ü", "ue"), "Ö", "Oe"), "Ü", "Ue"), "ß", "ss"), _
"Ä", "Ae")
Næste celle
Afslut med
Afslut Sub
Makroen indhenter de relevante udskiftningsopkald via funktionen Vikarer ind i hinanden. Dette er det engelske funktionsnavn for REPLACE -tabelfunktionen.
For at bruge makroen skal du først markere de celler, hvor du vil udskifte umlauts, og derefter kalde makroen. Følgende figur viser, hvordan tabellen med umlauts ser ud efter makroen er startet:
