Private Sub TextBox3_Change()
Me.TextBox1.Visible = Me.TextBox3.Value = ""
End Sub
Private Sub TextBox2_Change()
TextBox3.Visible = Len(TextBox2) > 0
End Sub
Private Sub UserForm_Activate()
TextBox3.Visible = False
End Sub
Private Sub TextBox2_AfterUpdate()
TextBox3.Visible = Len(TextBox2) > 0
End Sub
Private Sub TextBox2_AfterUpdate()
TextBox3.Visible = InStr("Black&White,Jim Beam,Glenn Fitich", TextBox2.Text) > 0
End Sub
Um Textboxen in einer UserForm auszublenden, wenn in einer bestimmten Textbox etwas eingetragen wird, kannst du den folgenden VBA-Code verwenden. Hier ist eine Schritt-für-Schritt-Anleitung:
ALT + F11, um den VBA-Editor zu öffnen.Private Sub TextBox3_Change()
Me.TextBox1.Visible = Me.TextBox3.Value = ""
End Sub
Private Sub UserForm_Activate()
TextBox3.Visible = False
End Sub
Private Sub TextBox2_AfterUpdate()
TextBox3.Visible = Len(TextBox2) > 0
End SubTextbox wird nicht ausgeblendet: Stelle sicher, dass der Code in der richtigen Subroutine platziert ist und dass die Namen der Textboxen korrekt sind.
Textbox wird erst sichtbar, wenn sie gelöscht wird: Achte darauf, dass der Code in der TextBox2_AfterUpdate()-Subroutine platziert ist, damit die Sichtbarkeit sofort aktualisiert wird.
Eine alternative Methode, um Textboxen auszublenden, besteht darin, die Sichtbarkeit basierend auf bestimmten Eingabewerten zu steuern. Hier ist ein Beispiel:
Private Sub TextBox2_AfterUpdate()
TextBox3.Visible = InStr("Grünkohl,Sauerkraut,Kohlwurst", TextBox2.Text) > 0
End SubIn diesem Beispiel wird TextBox3 nur sichtbar, wenn der Benutzer einen der angegebenen Werte in TextBox2 eingibt.
Hier sind einige praktische Beispiele, wie du die Sichtbarkeit von Textboxen in einer UserForm steuern kannst:
Ausblenden eines Textfeldes: Wenn der Benutzer nichts in TextBox3 eingibt, wird TextBox1 ausgeblendet.
Bedingte Sichtbarkeit: TextBox3 wird nur sichtbar, wenn TextBox2 einen bestimmten Wert enthält. Dies kann nützlich sein, um die Benutzerführung zu verbessern.
Me. vor den Textboxen, um sicherzustellen, dass du auf die Textboxen der aktuellen UserForm zugreifst.1. Wie kann ich mehrere Textboxen gleichzeitig ausblenden?
Du kannst den Code einfach erweitern, indem du die Sichtbarkeit mehrerer Textboxen in einer Subroutine änderst:
Private Sub TextBox2_AfterUpdate()
TextBox3.Visible = Len(TextBox2) > 0
TextBox4.Visible = Len(TextBox2) > 0
End Sub2. Funktioniert dieser Code in allen Excel-Versionen?
Ja, der Code ist mit allen modernen Excel-Versionen kompatibel, die VBA unterstützen. Stelle sicher, dass du die UserForm korrekt erstellt hast.
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen