Du kan enkelt byta ut alla umlauts med ett makro
Det är vanligtvis inte ett så stort problem som för några år sedan, men umlauts kan fortfarande orsaka problem vid utbyte av data. Följande bild visar en tabell med texter som innehåller umlauts:
Om du behöver utbyta information med andra system eller skicka data till andra länder kan det därför vara användbart att byta ut alla umlauts i en tabell. Du ersätter ä med ett ae, ö mot ett oe, etc.
Naturligtvis kan du göra detta genom att upprepade gånger ringa EDIT - REPLACE -funktionen. Men det är mycket arbete. Om du vill ersätta alla tre umlauts ä, ö och ü i stora och små bokstäver samt ß måste du utföra sju ersättningsoperationer i rad.
Det är lättare med ett makro. Här är lämplig programkod:
Sub ReplaceUmlauts ()
Dim Cell As Range
Med Application.WorksheetFunction
För varje cell i urval
Cell.Value = .Substitute (.Substitute (.Substitute (.Substitute (_
.Substitute (.Substitute (.Substitute (Cell.Value, "ä", "ae"), _
"ö", "oe"), "ü", "ue"), "Ö", "Oe"), "Ü", "Ue"), "ß", "ss"), _
"Ä", "Ae")
Nästa cell
Sluta med
Avsluta Sub
Makrot häckar lämpliga ersättningsanrop via funktionen Vikarier in i varandra. Detta är det engelska funktionsnamnet för ersättnings tabellfunktionen.
För att använda makrot, välj först de celler där du vill ersätta umlauts och anropa sedan makrot. Följande bild visar hur tabellen med umlauts ser ut efter att makrot startats:
