Wie wendet man die Rechtschreibprüfung in einem Textfeld an?

Wir können ganz einfach die Funktion „Rechtschreibung“ verwenden, um Zeichenfolgen aus einer Zelle zu überprüfen, aber diese Funktion ist nicht für die Rechtschreibprüfung in einem Textfeld verfügbar. In diesem Artikel werde ich darüber sprechen, wie man die Rechtschreibprüfung in einem Textfeld anwendet.

Rechtschreibprüfung in einem Textfeld mit VBA-Code anwenden

Rechtschreibprüfung in einem Textfeld mit VBA-Code anwenden

Um die Zeichenfolge in einem Textfeld zu überprüfen, kann der folgende VBA-Code helfen:

1. Klicken Sie zunächst auf Entwickler > Einfügen > Textfeld (ActiveX-Steuerelement), und ziehen Sie, um ein Textfeld zu zeichnen, siehe Screenshot:

2. Verlassen Sie dann den Entwurfsmodus, um die gewünschte Zeichenfolge in das Textfeld einzugeben. Nachdem Sie den Text eingegeben haben, aktivieren Sie erneut den Entwurfsmodus, und klicken Sie mit der rechten Maustaste auf das Textfeld, um im Kontextmenü auf Code anzeigen zu klicken, siehe Screenshot:

3. Im geöffneten Fenster Microsoft Visual Basic for Applications ersetzen Sie bitte den ursprünglichen Code durch den folgenden VBA-Code im Modul.

VBA-Code: Rechtschreibprüfung in einem Textfeld anwenden:

Sub SpellChkRvw_Click()
    Dim xObject As Object
    Dim xCell As Range
    On Error Resume Next
    Set xCell = ActiveSheet.Cells(ActiveSheet.Rows.Count, ActiveSheet.Columns.Count)
    If ActiveSheet.OLEObjects.Count > 0 Then
        For Each xObject In ActiveSheet.OLEObjects
            xCell = xObject.Object.Text
            xCell.CheckSpelling , , , 1033
            xObject.Object.Text = xCell
        Next
    End If
End Sub

4. Drücken Sie anschließend die F5-Taste, um diesen Code auszuführen. Das Dialogfeld „Rechtschreibung“ wird sofort aktiviert, und Sie können die Funktion „Rechtschreibung“ verwenden, um den Text im Textfeld zu überprüfen, wie im folgenden Screenshot gezeigt:

Verwandte Artikel:

Wie ändert man die Farbe eines Textfelds basierend auf einem Wert in Excel?

Wie fügt man ein Bild in ein Textfeld ein?

Wie legt man einen Standardwert in einem Textfeld fest?

Wie lässt man nur Zahlen in ein Textfeld eingeben?