Gruppe
Allgemein
Problem
Die Einträge auf Spalte A sollen auf ihre Rechtschreibkorrektheit geprüft werden. Fehler sollen in Spalte B angezeigt werden.
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