Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
808to812
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
808to812
808to812
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Vereinfachen

Vereinfachen
15.10.2006 20: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
Anzeige
AW: Vereinfachen
15.10.2006 21: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
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige