Vereinfachen

Forumthread: Vereinfachen
1 Beitrag zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Vereinfachen

Vereinfachen

15.10.2006 22:19:27

Mathias

Hallo Ekcel-Gemeinde,
Ich habe ein ungelöstes Problem:
Ich möchte diese Application


Sub Sichtbar_ausfuehren()
If EbgVermoegen.cbxVermoegenPerson1.Value = "BV/EHB" Then EbgVermoegen.Frame18.Visible = True
End Sub

So ausführen, dass er bei Erfüllung der If-Variable alle Frames in der gesamten Userfom auf Visible True setzt. Ich dachte da an eine For Each-Lösung, aber weiß nicht so recht wie das geht.
Kann mir wer helfen?
Gruß
Mathias

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

AW: Vereinfachen

15.10.2006 23:24:57

Kay

AW: Vereinfachen

15.10.2006 23:24:57

Kay

Hallo Mathias,
ich habe dies mal mit einer Aktualisierung einer Textbox gemacht, musst deinem anpassen:


Private Sub TextBox1_AfterUpdate()
Dim obj As Object
If Me.TextBox1 = "einblenden" Then
For Each obj In Me.Controls
If Left(TypeName(obj), 5) = "Frame" Then
obj.Visible = True
End If
Next obj
End If
End Sub

Gruß
Kay