Wie wendet man die Rechtschreibprüfung in einem Textfeld an?
Wir können die Rechtschreibfunktion problemlos anwenden, um den Text einer Zelle auf Rechtschreibfehler zu prüfen, doch diese Funktion lässt sich nicht direkt auf ein Textfeld zur Rechtschreibprüfung anwenden. In diesem Artikel erläutere ich, wie Sie die Rechtschreibprüfung in einem Textfeld durchführen können.
Rechtschreibprüfung in einem Textfeld mithilfe von VBA-Code durchführen
Rechtschreibprüfung in einem Textfeld mithilfe von VBA-Code durchführen
Um die Rechtschreibprüfung für eine Textzeichenfolge in einem Textfeld durchzuführen, kann der folgende VBA-Code hilfreich sein:
1. Fügen Sie zunächst ein Textfeld ein, indem Sie auf Entwicklertools > Einfügen > Textfeld (ActiveX-Steuerelement) klicken und per Ziehen ein Textfeld zeichnen. Siehe Screenshot:
2. Verlassen Sie anschließend den Entwurfsmodus, um die gewünschte Textzeichenfolge in das Textfeld einzugeben. Nachdem Sie den Text eingegeben haben, aktivieren Sie erneut den Entwurfsmodus und klicken mit der rechten Maustaste auf das Textfeld, um im Kontextmenü Code anzeigen auszuwählen. Siehe Screenshot:
3. Ersetzen Sie im geöffneten Fenster Microsoft Visual Basic für Applikationen den ursprünglichen Code im Modul durch den folgenden VBA-Code.
VBA-Code: Rechtschreibprüfung im Textfeld durchführen:
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. Daraufhin öffnet sich sofort das Dialogfeld Rechtschreibprüfung. Sie können nun die Rechtschreibprüfung-Funktion nutzen, um den Text im Textfeld wie im folgenden Screenshot gezeigt zu überprüfen:
Verwandte Artikel:
Wie lässt sich die Farbe eines Textfelds in Excel basierend auf einem bestimmten Wert ändern?
Wie fügt man ein Bild in ein Textfeld ein?
Wie legt man einen Standardwert in einem Textfeld fest?
Wie kann man sicherstellen, dass in einem Textfeld nur Zahlen eingegeben werden können?
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor.Kutools für Excel bietet über 300 erweiterte Funktionen zur Steigerung der Produktivität und Zeit sparen.Klicken Sie hier, um die Funktion zu erhalten, die Sie am dringendsten benötigen...
Office Tab bringt eine tabbasierte Oberfläche in Office und macht Ihre Arbeit viel einfacher
- Aktivieren Sie tabbasiertes Bearbeiten und Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters – statt jedes in einem separaten Fenster zu öffnen.
- Steigert Ihre Produktivität um 50 % und erspart Ihnen täglich Hunderte von Mausklicks!
Alle Kutools-Add-Ins – ein Installationsprogramm
Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook und PowerPoint sowie Office Tab Pro – ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- Alles-in-einem-Paket— Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro
- Ein Installationsprogramm, eine Lizenz— innerhalb weniger Minuten eingerichtet (MSI-fähig)
- Funktioniert besser zusammen— optimierte Produktivität über alle Office-Anwendungen hinweg
- 30-tägige Vollversion zum Testen— keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis— sparen Sie im Vergleich zum Kauf einzelner Add-Ins