Gruppe
Allgemein
Bereich
Bearbeiten
Thema
Rechtschreibprüfung und Fehlerausgabe
Problem
Die Einträge auf Spalte A sollen auf ihre Rechtschreibkorrektheit geprüft werden. Fehler sollen in Spalte B angezeigt werden.
Lösung
Den nachstehenden Code in ein Standardmodul eingeben, einer Schaltfläche zuweisen und starten.
StandardModule: Modul1
Sub StartSpelling()
Dim iRow As Integer
On Error GoTo ERRORHANDLER
For iRow = 1 To WorksheetFunction.CountA(Columns(1))
If Application.CheckSpelling( _
Cells(iRow, 1).Value, , True) = False Then
Cells(iRow, 2).Value = False
Else
Cells(iRow, 2).Value = True
End If
Next iRow
Exit Sub
ERRORHANDLER:
Beep
MsgBox _
prompt:="Die Rechtschreibprüfung ist nicht installiert!"
End Sub