Vse umlaute lahko preprosto zamenjate z makrom
Običajno to ni tako velik problem, kot je bil pred nekaj leti, vendar lahko umlauti še vedno povzročijo težave pri izmenjavi podatkov. Naslednja slika prikazuje tabelo z besedili, ki vsebujejo umlaute:
Če morate izmenjati informacije z drugimi sistemi ali poslati podatke v druge države, je zato lahko koristno zamenjati vse umlaute v tabeli. Zamenjate ä z ae, ö z oe itd.
Seveda lahko to storite z večkratnim klicem funkcije EDIT - REPLACE. Ampak to je veliko dela. Če želite zamenjati vse tri umlaute ä, ö in ü v velikih in malih črkah ter ß, morate izvesti sedem operacij zamenjave zapored.
Z makrom je lažje. Tu je ustrezna programska koda:
Sub ReplaceUmlauts ()
Dim Cell As Range
Z Application.WorksheetFunction
Za vsako izbrano celico
Cell.Value = .Substitute (.Substitute (.Substitute (.Substitute (_
.Substitute (.Substitute (.Substitute (Cell.Value, "ä", "ae"), _
"ö", "oe"), "ü", "ue"), "Ö", "Oe"), "Ü", "Ue"), "ß", "ss"), _
"Ä", "Ae")
Naslednja celica
Končaj s
End Sub
Makro gnezdi ustrezne nadomestne klice prek funkcije Nadomestki drug v drugega. To je angleško ime funkcije tabele REPLACE.
Če želite uporabiti makro, najprej izberite celice, v katerih želite zamenjati umlaute, in nato pokličite makro. Naslednja slika prikazuje, kako izgleda tabela z umlauti po zagonu makra:
