Vanita hat ein Arbeitsblatt, das verschiedene Buchstabenkombinationen in jeder Zelle der Spalte A enthält. Er sucht nach einer Möglichkeit, die Wörter aus dieser Liste zu extrahieren, die „richtig“ sind, was bedeutet, dass sie in einem Wörterbuch zur Rechtschreibprüfung gefunden werden.

Angenommen, die Spalte enthält nur Wörter (keine Leerzeichen, Satzzeichen oder Phrasen), können Sie die Liste auf folgende Weise manuell überprüfen:

  1. Erstellen Sie eine Kopie von Spalte A in Spalte B. Sie haben jetzt zwei identische Spalten.

  2. Wählen Sie Spalte B aus und führen Sie die Rechtschreibprüfung durch.

  3. Akzeptieren Sie jedes Mal, wenn eine Rechtschreibänderung vorgeschlagen wird. Wenn Sie fertig sind, sollten Sie Spalte A als Original und Spalte B als Rechtschreibprüfung für Spalte A haben.

  4. Geben Sie in Spalte C die Formel = IF (A1 = B1, B1, „“) ein und kopieren Sie die Formel nach unten. Diese Formel zeigt nur dann ein Wort in Spalte C an, wenn das ursprüngliche Wort mit der Rechtschreibprüfung des Wortes übereinstimmt.

  5. Kopieren Sie alle Wörter in Spalte C und fügen Sie mit „Inhalte einfügen“ Werte an einer anderen Stelle ein. Sie haben jetzt eine Liste gültig geschriebener Wörter.

Wenn Sie den Validierungsprozess regelmäßig durchführen müssen, können Sie stattdessen ein Makro verwenden, um Ihre endgültige Liste zu erstellen. Das folgende Makro durchläuft die Wortliste in Spalte A und löscht alle Zellen, die Wörter enthalten, die nicht im Wörterbuch enthalten sind. Nachdem alle Wörter überprüft wurden, werden alle gelöschten Zellen gelöscht.

Sub ExtractDictionaryWords()

Dim rWords As Range     Dim rCell As Range

Application.ScreenUpdating = False     Set rWords = Range(Range("A1"), _       Range("A1048576").End(xlUp))

For Each rCell In rWords         If Not Application.CheckSpelling(rCell.Value) Then             rCell.Clear         End If     Next     On Error Resume Next     rWords.SpecialCells(xlCellTypeBlanks). _       Delete (xlShiftUp)

On Error GoTo 0     Set rCell = Nothing     Set rWords = Nothing     Application.ScreenUpdating = True End Sub

Denken Sie daran: Dieses Makro ist absichtlich destruktiv in seinem Verhalten, was bedeutet, dass es Zellen löscht. Wenn Sie die Originaldaten benötigen, möchten Sie das Makro auf einer Kopie der Daten ausführen, nicht auf Ihrer einzigen Kopie.

_Hinweis: _

Wenn Sie wissen möchten, wie die auf dieser Seite (oder auf einer anderen Seite der ExcelTips-Websites) beschriebenen Makros verwendet werden, habe ich eine spezielle Seite vorbereitet, die hilfreiche Informationen enthält.

Klicken Sie hier, um diese spezielle Seite in einem neuen Browser-Tab zu öffnen.

ExcelTips ist Ihre Quelle für kostengünstige Microsoft Excel-Schulungen.

Dieser Tipp (11284) gilt für Microsoft Excel 2007, 2010, 2013 und 2016.

Eine Version dieses Tipps für die ältere Menüoberfläche von Excel finden Sie hier: Extrahieren der richtigen Wörter.