Suchen Sie nach lateinischen Buchstaben in kyrillischem Text und umgekehrt

Beschreibung

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 das neue Tastaturlayout umzustellen.

Wir brauchen also einen Mechanismus, um Kyrillisch auf Lateinisch zu finden oder umgekehrt Lateinisch auf Kyrillisch. Excel verfügt über keine Standardtools für solche Zwecke. Nachfolgend finden Sie ein vorgefertigtes Makro zu VBA, das im kyrillisch geschriebenen Text nach lateinischen Buchstaben sucht und umgekehrt.

Sie müssen den VBA-Code zu Ihrer Arbeitsmappe hinzufügen, bevor Sie dieses Makro verwenden. Dafür:

1. Drücken Sie ALT + F11, um den Editor Visual Basic zu öffnen
2. Fügen Sie ein neues leeres Modul über das Menü Insert - Module hinzu
3. Kopieren Sie den Makrocode und fügen Sie ihn in das Modul ein.
4. Speichern Sie die Datei und kehren Sie zu Excel zurück.

Jetzt können Sie einen Zellbereich auswählen, ein Makro ausführen und so den Text auf Fremdzeichen überprüfen.

Suchen Sie nach dem lateinischen Alphabet in Kyrillisch

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:

Suchen Sie nach Kyrillisch im lateinischen Alphabet

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:

Artikel zum Thema: