Alle Textfelder in einem Frame (Userform) visible

Forumthread: Alle Textfelder in einem Frame (Userform) visible
9 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Alle Textfelder in einem Frame (Userform) visible

Selma

Hallo
Auf einer Userform hab ich diverse Frames. In diesen Frames gibt es unzählige Textfelder, welche teilweise während dem Makro-Lauf aus verschiedenen Gründen ausgeblendet werden. (Textbox1.visible = False)
Nun meine Frage:
gibt es eine Möglichkeit, zu beginn der Sub (oder Form initialize) alle Textfelder welche sich in einem bestimmten Frame befinden wieder einzublenden (also Visble = true) ?
danke für Eure Tips

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Alle TextBoxen einem Frames ausblenden

NoNet
Sie will doch einblenden! owT

Rudi
Mir fiel gerade das Gegenteil von FALSE nicht ein

FALSE
AW: Alle TextBoxen einem Frames ausblenden

Selma
AW: Alle Textfelder in einem Frame (Userform) visible

Rudi
AW: Alle Textfelder in einem Frame (Userform) visible

robert
OT: He, Robert, die Bedingg/Umstdd hier ...

Luc:-?
...verstanden...kwT-Gruß

robert
AW: ...verstanden...kwT-Gruß

Selma

Alle TextBoxen einem Frames ausblenden

27.07.2011 14:42:46

NoNet

Hallo Selma,
hier ein Codebeispiel (wird beim Aktivierne des UF ausgeführt) :

Private Sub UserForm_Activate()
Dim tb As Control
For Each tb In Me.Frame1.Controls 'Alle Textboxen in "Frame1"
If TypeName(tb) = "TextBox" Then tb.Visible = False
Next
End Sub

Den Namen "Frame1" musst Du natürlich an den Namen des von Dir verwendeten Frames austauschen.
Gruß, NoNet

Sie will doch einblenden! owT

27.07.2011 14:44:38

Rudi

Mir fiel gerade das Gegenteil von FALSE nicht ein

27.07.2011 14:48:27

FALSE

Hey Rudi,
man kann ja nicht alles wissen !
z.B. das Gegenteil von EINblenden ist AUSblenden - aber von FALSE ? - Das fiel mir gerade nicht ein ;-))
Du *BesserwI553r* ;-)
Ciao, NoNet

AW: Alle TextBoxen einem Frames ausblenden

27.07.2011 16:04:36

Selma

hallo allerseits !
herzlichen Dank für Eure superschnelle Hilfe. Ich habe genau mit dem Code von NoNet mein Problem lösen können.
Danke aber allen für die konstruktiven Postings

AW: Alle Textfelder in einem Frame (Userform) visible

27.07.2011 14:43:35

Rudi

Hallo,
etwa so:

Private Sub UserForm_Activate()
Dim ctl As Control
For Each ctl In Frame1.Controls
ctl.Visible = True
Next
End Sub

Gruß
Rudi

AW: Alle Textfelder in einem Frame (Userform) visible

27.07.2011 14:47:09

robert

Hi,
viell.als Ansatz..
Gruß
robert

Sub VisTxt()
Dim DeineTextbox As Control
For Each DeineTextbox In UserForm1.Controls
If TypeName(DeineTextbox) = "TextBox" Then
DeineTextbox.Visible = True
End If
Next
End Sub