Du kan enkelt erstatte alle umlauts ved hjelp av en makro
Det er vanligvis ikke et så stort problem som det var for noen år siden, men umlauts kan fortsatt forårsake problemer når du utveksler data. Følgende figur viser en tabell med tekster som inneholder umlauts:
Hvis du trenger å utveksle informasjon med andre systemer eller sende data til andre land, kan det derfor være nyttig å bytte ut alle umlauts i en tabell. Du erstatter ä med en ae, ö med en oe, etc.
Selvfølgelig kan du gjøre dette ved å ringe EDIT - REPLACE -funksjonen gjentatte ganger. Men det er mye arbeid. Hvis du vil erstatte alle tre umlautene ä, ö og ü i store og små bokstaver samt ß, må du utføre syv erstatningsoperasjoner på rad.
Det er lettere med en makro. Her er den riktige programkoden:
Sub ReplaceUmlauts ()
Dim Cell As Range
Med Application.WorksheetFunction
For hver celle i utvalg
Cell.Value = .Substitute (.Substitute (.Substitute (.Substitute (_
.Substitute (.Substitute (.Substitute (Cell.Value, "ä", "ae"), _
"ö", "oe"), "ü", "ue"), "Ö", "Oe"), "Ü", "Ue"), "ß", "ss"), _
"Ä", "Ae")
Neste celle
Slutt med
Slutt Sub
Makroen hekker passende erstatningsanrop via funksjonen Innbyttere inn i hverandre. Dette er det engelske funksjonsnavnet til REPLACE -tabellfunksjonen.
For å bruke makroen, velg først cellene du vil erstatte umlautene i, og ring deretter makroen. Følgende figur viser hvordan tabellen med umlautene ser ut etter at du har startet makroen:
