Rechtschreibprüfung per Excel-Makro

Beim Einsatz von Excel können Sie über Funktion "Extras – Rechtschreibung" oder die Taste F7 eine Rechtschreibprüfung der aktuellen Tabelle vornehmen.

Die Rechtschreibprüfung können Sie auch per Makro verwenden. Das ist vor allem dann praktisch, wenn Sie einzelne Begriffe oder Ausdrücke auf Richtigkeit überprüfen möchten.

Setzen Sie das folgende Makro ein, um einen Text makrogesteuert auf richtige Rechtschreibung zu überprüfen:

Sub IstAusdruckRichtig()
Dim a As String
If Application.CheckSpelling("Die Tabelle") = True Then
 a = MsgBox("Der Ausdruck ist korrekt.", vbOKOnly, "Rechtschreibprüfung")
Else
 a = MsgBox("Der Ausdruck ist nicht korrekt.", vbOKOnly, "Rechtschreibprüfung")
End If
End Sub

Im Beispiel wird der Text "Die Tabelle" geprüft. Als Ergebnis zeigt Excel ein Hinweisfenster an, mit dem bestätigt wird, dass der Ausdruck die Rechtschreibprüfung fehlerfrei durchlaufen hat:

Indem Sie für den Text eine andere Zeichenkette oder eine Variable einsetzen, können Sie beliebige Ausdrücke mit der Rechtschreibprüfung testen. Falls der Ausdruck als fehlerhaft erkannt wird, zeigt Excel ein alternatives Fenster an:

In Ihren Makros können Sie das Verfahren einsetzen, um beispielsweise eingegebenen Daten sofort auf Richtigkeit zu überprüfen. Verwenden Sie dazu die Eigenschaft CheckSpelling wie im Makro demonstriert.