Wie überprüfe ich, ob Textfelder im Benutzerformular leer sind oder nicht?
Wenn Sie überprüfen möchten, ob Textfelder in einem angegebenen Benutzer in Excel leer sind oder nicht, kann Ihnen die Methode in diesem Artikel helfen.
Überprüfen Sie, ob die Textfelder im Benutzerformular leer sind oder nicht, mit VBA-Code
Überprüfen Sie, ob die Textfelder im Benutzerformular leer sind oder nicht, mit VBA-Code
Mit dem folgenden VBA-Code können Sie überprüfen, ob alle Textfelder in einem angegebenen Benutzerformular in Excel leer sind oder nicht. Bitte gehen Sie wie folgt vor.
1. Drücken Sie die Taste Andere + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.
2. In dem Microsoft Visual Basic für Applikationen Klicken Sie im Fenster Insert > Modul. Kopieren Sie dann den folgenden VBA-Code in das Codefenster.
VBA-Code: Überprüfen Sie, ob die Textfelder im Benutzerformular leer sind oder nicht
Sub CheckTextBox()
Dim fTextBox As Object
Dim xTxtName As String
Dim xEptTxtName As String
For Each fTextBox In UserForm1.Controls
If TypeName(fTextBox) = "TextBox" Then
If fTextBox.Text = "" Then
xEptTxtName = xEptTxtName & fTextBox.Name & " is empty" & vbNewLine
Else
xTxtName = xTxtName & fTextBox.Name & " is not empty" & vbNewLine
End If
End If
Next
If xEptTxtName <> "" Or xTxtName <> "" Then
MsgBox xEptTxtName & vbNewLine & xTxtName
End If
End Sub
Note: Im Code ist UserForm1 der Name des Benutzerformulars, das die zu überprüfenden Textfelder enthält.
3. Drücken Sie die Taste F5 Schlüssel zum Ausführen des Codes. Dann ein Microsoft Excel Es erscheint ein Dialogfeld, das Ihnen mitteilt, welches Textfeld leer ist und welches nicht, wie im folgenden Screenshot gezeigt.
In Verbindung stehende Artikel:
- Wie überprüfe ich, ob das erste Zeichen in einer Zelle ein Buchstabe oder eine Zahl in Excel ist?
- Wie überprüfe ich, ob ein Zellenwert in Excel zwischen zwei Werten liegt?
- Wie formatiere ich ein Textfeld als Prozentsatz in Excel?
- Wie wähle ich automatisch Text eines Textfelds aus, wenn es in Excel ausgewählt wird?
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, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...
Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich
- Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
- Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!