VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Rechtschreibprüfung und Fehlerausgabe

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

    


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