Thema: Rechtschreibprüfung und Fehlerausgabe

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

Beiträge aus dem Excel-Forum zu den Themen Allgemein und Bearbeiten