Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Rechtschreibprüfung und Fehlerausgabe

Gruppe

Bearbeiten

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