Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Textboxen in Userform leeren

Forumthread: Textboxen in Userform leeren

Textboxen in Userform leeren
23.08.2004 12:52:05
Josef
Hallo!
Gibt es einen allgemeinen Befehlm, damit beim Neu Initialize eine befüllte TextBox wieder geleert ist, oder muß man jede TextBox beim Initialize Befehl eintragen?

Private Sub UserForm_Initialize()
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
End Sub

Danke
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Textboxen in Userform leeren
AndreasST
Hallo,
so geht's:

Private Sub UserForm_Initialize()
Dim tb As Object
For Each tb In UserForm1.Controls
If TypeName(tb) = "TextBox" Then
tb.Text = ""
End If
Next
End Sub

Gruß
Andreas
AW: Textboxen in Userform leeren
23.08.2004 14:07:16
Josef
Hallo Andreas!
Danke für Deine Hilfe
Josef
Anzeige
AW: Textboxen in Userform leeren
Andre
Hi,
beim initialize wird eigentlich immer der Wert vorgegeben, der im VB-Editor der jeweiligen Textbox zugewiesen worden ist.
Wichtig ist, wie du die Userform schließt! Um die voreingestellte Version der Userform zu öffnen bzw. zu initializieren, muß diese vorher mit "Unload me" o.ä. geschlossen werden, nicht aber mit ".hide"! Denn ".hide" blendet nur aus!
mfg Andre
Anzeige
;
Anzeige
Anzeige

Infobox / Tutorial

Textboxen in Userform leeren


Schritt-für-Schritt-Anleitung

Um alle Textboxen in einer Userform zu leeren, kannst du den folgenden VBA-Code verwenden. Dieser Code wird im UserForm_Initialize-Ereignis platziert und sorgt dafür, dass jede TextBox in der Userform beim Initialisieren auf einen leeren Wert gesetzt wird:

Private Sub UserForm_Initialize()
    Dim tb As Object
    For Each tb In UserForm1.Controls
        If TypeName(tb) = "TextBox" Then
            tb.Text = ""
        End If
    Next
End Sub

Mit diesem Code wird jede TextBox in der Userform automatisch geleert, ohne dass du jede einzelne TextBox manuell eintragen musst.


Häufige Fehler und Lösungen

  1. TextBoxen werden nicht geleert
    Wenn die TextBoxen nicht geleert werden, könnte es daran liegen, dass die Userform nicht korrekt geschlossen wurde. Stelle sicher, dass du die Userform mit Unload Me schließt und nicht mit .Hide.

  2. Fehler beim Ausführen des Codes
    Wenn du einen Laufzeitfehler erhältst, überprüfe, ob alle TextBoxen korrekt benannt sind und die Userform tatsächlich im Fokus ist.


Alternative Methoden

Eine alternative Methode, um die TextBoxen zu leeren, besteht darin, die Eigenschaften der TextBoxen direkt im Eigenschaftenfenster des VB-Editors zu ändern. Du kannst den Standardwert für jede TextBox auf einen leeren String setzen. Allerdings ist diese Methode weniger dynamisch, da du jede TextBox manuell anpassen musst.


Praktische Beispiele

Angenommen, du hast eine Userform mit den TextBoxen TextBox1, TextBox2 und TextBox3. Wenn du die oben genannten Schritte befolgst und den Code in das UserForm_Initialize-Ereignis einfügst, werden alle TextBoxen jedes Mal geleert, wenn die Userform geöffnet wird.


Tipps für Profis

  • Verwende Schleifen: Der Einsatz von Schleifen, wie im obigen Beispiel, macht deinen Code flexibler und einfacher zu pflegen, besonders wenn du viele TextBoxen hast.
  • Benutzerdefinierte Initialisierungen: Du kannst auch spezifische Werte in die TextBoxen setzen, indem du die Bedingungen im Schleifen-Block anpasst.
  • Fehlerbehandlung: Implementiere Fehlerbehandlungsroutinen, um sicherzustellen, dass der Code auch dann funktioniert, wenn unerwartete Probleme auftreten.

FAQ: Häufige Fragen

1. Wie kann ich eine bestimmte TextBox leeren?
Du kannst eine bestimmte TextBox leeren, indem du ihren Namen angibst, z.B. TextBox1.Text = "".

2. Was passiert, wenn ich .Hide anstelle von Unload Me verwende?
.Hide blendet die Userform nur aus, während Unload Me die Userform schließt und alle Variablen zurücksetzt, was wichtig ist, um die TextBoxen beim nächsten Öffnen zu leeren.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige