Rechtschreibprüfung in TextBox in Excel
Schritt-für-Schritt-Anleitung
Um eine Rechtschreibprüfung in einer TextBox in Excel durchzuführen, kannst du den folgenden VBA-Code verwenden. Diese Methode prüft den gesamten Text in der TextBox, indem sie den Text in einzelne Wörter aufteilt und jedes Wort überprüft:
- Öffne Excel und drücke
ALT + F11, um den VBA-Editor zu öffnen.
- Füge in das entsprechende Arbeitsblatt den folgenden Code ein:
Private Sub TextBox1_LostFocus()
Dim tmp
Dim wrongWords As String
Dim lX As Long
tmp = Split(TextBox1, " ")
For lX = LBound(tmp) To UBound(tmp)
If Not Application.CheckSpelling(tmp(lX)) Then
wrongWords = wrongWords & tmp(lX) & " "
End If
Next lX
If Len(wrongWords) > 0 Then _
MsgBox "Folgende Wörter sind falsch:" & vbCrLf & wrongWords, vbExclamation, "Spell-Check"
End Sub
- Schließe den VBA-Editor und teste die TextBox, indem du den Fokus verlierst (z.B. durch Klicken außerhalb der TextBox).
Häufige Fehler und Lösungen
Alternative Methoden
Eine alternative Methode zur Rechtschreibprüfung in Excel könnte sein, den Text in eine temporäre Tabelle zu schreiben und dort die Rechtschreibprüfung durchzuführen. Hier ist ein Beispiel:
Sub checkerTB()
Dim ws As Worksheet
Dim wb As Workbook
Dim orgSh As Worksheet
Set orgSh = ActiveSheet
Set wb = ActiveWorkbook
Set ws = wb.Worksheets.Add
ws.Name = "RechtschreibungTemp"
ws.Visible = xlSheetHidden
ws.Range("A1").Value = Sheets("Tabelle1").TextBox1.Value
ws.Range("A1").CheckSpelling
Sheets("Tabelle1").TextBox1.Value = ws.Range("A1").Value
Application.DisplayAlerts = False
ws.Delete
orgSh.Activate
End Sub
Diese Methode ist zwar nicht die eleganteste, funktioniert jedoch zuverlässig.
Praktische Beispiele
Tipps für Profis
- Überlege, ob du die Rechtschreibprüfung in Excel automatisieren möchtest. Du könntest ein Ereignis erstellen, das die Überprüfung bei jeder Eingabe aktiviert.
- Nutze die
CheckSpelling-Methode in Kombination mit anderen Excel-Funktionen, um eine umfassendere Textanalyse durchzuführen.
- Halte Deinen Code organisiert und verwende Kommentare, um die Funktionsweise zu erklären, besonders wenn der Code komplexer wird.
FAQ: Häufige Fragen
1. Warum bricht die Rechtschreibprüfung nach 256 Zeichen ab?
Die CheckSpelling-Methode kann nur ein einzelnes Wort überprüfen. Um längere Texte zu überprüfen, musst du den Text in Wörter aufteilen.
2. Welche Excel-Version benötige ich für diese Methoden?
Die beschriebenen Methoden funktionieren in Excel-Versionen, die VBA unterstützen, einschließlich Excel 2010 und später.
3. Wie kann ich die Rechtschreibprüfung für mehrere TextBoxen durchführen?
Du kannst die oben genannten Code-Snippets für jede TextBox anpassen oder in eine Schleife integrieren, die über alle TextBoxen iteriert.