Office: Textbox von Userform entfernen

Hallo zusammen,

ich habe mir gerade eine nette UserForm erstellt und auch alle Böxchen und Kästchen dahin bekommen und mit den Funktionen versehen, die ich brauche - bis auf eine...

Die Userform hat mehrere Textboxen und in jeder Box steht ein Geschäftsfeld (die Geschäftsfelder werden vorgängig aus einer Tabelle eingelesen und bei Änderungen zurückgeschrieben). Nun kann es ja auch mal passieren, dass ein Geschäftsfeld wegfällt. Dazu möchte ich dann nicht nur die Textbox leeren (das klappt auch einwandfrei) sondern die ganze Textbox verschwinden lassen.
Textbox.visible = False löst das problem leider nicht, da die Box ja noch vorhanden ist.
Mir schwebt da eher was wie Textbox.delete vor - nur leider motzt da Excel rum, wenn ich das mache.

Was habe ich übersehen?

Vielen Dank für etwaige Denkanstösse *Smilie

dat entchen

Damit

:)

 

Hi,

Und wo ist dabei das Problem? Wenn sie nicht sichtbar ist, ist sie "optisch" doch "weg".

 

Hallo, *Smilie

Steuerelemente die Du zur Laufzeit hinzufügst kannst Du mit "Remove" löschen.

Der Versuch, ein Steuerelement zu löschen, das zur Entwurfszeit hinzugefügt wurde, führt jedoch zu einem Fehler.

Da musst Du dann mit "Visible" bzw. alternativ mit "Width = 0" "Height = 0" arbeiten. *wink.gif*

Servus
Case

 

Ich hätte sie aber auch gerne "physisch" weg - ich bin da leider etwas pedantisch und ein leichter Ordnungsfanatiker :-(

Ich habe die Felder mittels einer Schleife erzeugt.

For i = 1 to 10
Userform1.Controls.Add("Forms.TextBox.1", "Box" & i , True)
next i

wenn ich nun einfach Userform.Controls.Item("Box" & i) = "" mache habe ich dann beispielsweise in Feld Box5 den Wert "" stehen. Ich möchte aber die Box5 komplett löschen, so das ich keine "leeren" Boxen haben, sondern nur Boxen mit Werten drin.

Wenn VBA mir die .delete funktion nicht anbietet muss ich halt noch eine Schleife machen die Abfragt, ob die Box denn nun leer ist oder was drin steht...

 

Hallo, *Smilie

wie gesagt - nimm "Remove". *wink.gif*

Servus
Case

 

Hallo,

ich habe das gerade mit "Remove" probiert, aber auch dann erhalte ich eine Fehlermeldung.

Userform1.Controls.Item("Box1").Remove
führt zu Runtime-Error 438 - Object doesn`t support this property or method

Dann mach ich es doch halt doch mit Visible.

Aber Danke an Euch beide :-)

Viele Grüsse
dat Entchen

 

Hallo, *Smilie

von "Item" hat niemand etwas gesagt. *wink.gif*

Probiere mal in einer UserForm mit einem CommandButton:

Code:

Servus
Case

 

Hallo Case,

vielen dank - und durch das weglassen von Item hat nun alles wie gewünscht funktioniert.

Viele Grüsse
dat entchen

 

Hi,

wenn du die TextBoxen zur Laufzeit erstellst - weshalb prüfst du nicht vorher, wie viele erstellt werden müssen?