U kunt alle umlauten eenvoudig vervangen met een macro
Het is meestal niet zo'n groot probleem als een paar jaar geleden, maar umlauten kunnen nog steeds problemen veroorzaken bij het uitwisselen van gegevens. De volgende afbeelding toont een tabel met teksten die umlauten bevatten:
Als je informatie moet uitwisselen met andere systemen of gegevens naar andere landen moet sturen, kan het daarom handig zijn om alle umlauten in een tabel te vervangen. Je vervangt de ä door een ae, de ö door een oe, etc.
U kunt dit natuurlijk doen door herhaaldelijk de functie EDIT - REPLACE aan te roepen. Maar dat is veel werk. Als u alle drie de umlauts ä, ö en ü in hoofdletters en kleine letters wilt vervangen, evenals de ß, moet u zeven vervangingshandelingen achter elkaar uitvoeren.
Met een macro is het makkelijker. Hier is de juiste programmacode:
Sub Vervangumlauts ()
Dim cel als bereik
Met toepassing.Werkbladfunctie
Voor elke cel in selectie
Cell.Value = .substituut (.substituut (.substituut (.substituut (_
.Vervanging (.Vervanging (.Vervanging (Cell.Value, "ä", "ae"), _
"ö", "oe"), "ü", "ue"), "Ö", "Oe"), "Ü", "Ue"), "ß", "ss"), _
"Ä", "Ae")
Volgende cel
Eindigt met
Einde sub
De macro nestt de juiste vervangende oproepen via de functie plaatsvervangers verliefd op elkaar. Dit is de Engelse functienaam van de REPLACE-tabelfunctie.
Om de macro te gebruiken, selecteert u eerst de cellen waarin u de umlauts wilt vervangen en roept u vervolgens de macro aan. De volgende afbeelding laat zien hoe de tabel met de umlauten eruitziet na het starten van de macro:
