In einem auf Kyrillisch (Ukrainisch oder Russisch) verfassten Text muss man oft auf lateinische (englische) Buchstaben stoßen. Dies geschieht häufig bei der Analyse und Verarbeitung von Textinformationen aus Datenbanken, bei denen wiederum Text von Bedienern eingegeben wurde, die keine Zeit hatten, auf ein neues Tastaturlayout umzustellen.
Wir brauchen also einen Mechanismus, wie Finden Sie das kyrillische Alphabet im lateinischen Alphabet oder umgekehrt, Finden Sie Latein in Kyrillisch . Excel verfügt über keine Standardtools für solche Zwecke. Nachfolgend finden Sie ein fertiges Makro VBA , was ausführt Suche nach lateinischen Buchstaben im Text , in Kyrillisch geschrieben und umgekehrt.
Sie müssen den VBA-Code zu Ihrer Arbeitsmappe hinzufügen, bevor Sie dieses Makro verwenden. Dafür:
Jetzt können Sie einen Zellbereich auswählen, ein Makro ausführen und so den Text auf Fremdzeichen überprüfen.
Makrocode zur Suche nach lateinischen Buchstaben:
Sub ShowLatin() 'moonexcel.com.ua Dim c As Range, i As Long For Each c In Selection For i = 1 To Len(c) If Mid$(c, i, 1) Like "[A-Za-z]" Then c.Characters(Start:=i, Length:=1).Font.ColorIndex = 3 Next i, c End Sub
Das Ergebnis der Prüfung des lateinischen Textes:
Makrocode zur Suche nach kyrillischen Buchstaben:
Sub ShowCyrylic() 'moonexcel.com.ua Dim c As Range, i As Long For Each c In Selection For i = 1 To Len(c) If Mid$(c, i, 1) Like "[А-Яа-яЁЄЇІҐёєїіґ]" Then c.Characters(Start:=i, Length:=1).Font.ColorIndex = 3 Next i, c End Sub
Das Ergebnis der Überprüfung des kyrillischen Textes: