TOP

Suchen Sie nach lateinischen Buchstaben in kyrillischem Text und umgekehrt

YouLibreCalc for Excel logo

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 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:

  1. Drücken Sie ALT + F11, um den Visual Basic-Editor zu öffnen;
  2. Fügen Sie ein neues leeres Modul hinzu durch das Menü Insert - Module;
  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: