Objekt-Eigenschaften in UserForm suchen

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
UserForm Label MsgBox


Excel-Version: 8.0 (Office 97)
nach unten

Betrifft: Objekt-Eigenschaften in UserForm suchen
von: Bernhard
Geschrieben am: 04.07.2002 - 12:25:20

Wie kann ich ein einer UserForm bestimmte Objekteigenschaften von z.B. Labels mit Namen K_1 - K_49 abfragen ?
- den Inhalt
- die Position Left
- die Position Top

nach oben   nach unten

Re: Objekt-Eigenschaften in UserForm suchen
von: Hajo_Zi
Geschrieben am: 04.07.2002 - 12:37:49

Hallo Bernhard

mit einemZeichen scheint mir das recht aufwendig


Sub tes()
    Dim cb As Control
    For Each cb In Me.Controls
        If Mid(cb.Name, 1, 1) = "K" Then
        ' hier jetz Deine Aktionen
        End If
    Next cb
End Sub

Gruß Hajo


nach oben   nach unten

Re: Objekt-Eigenschaften in UserForm suchen
von: Bernhard
Geschrieben am: 04.07.2002 - 13:09:48

Danke Hajo
Es hat geklappt und ich bin weiter gekommen.
Gruß
Bernhard

nach oben   nach unten

Re: Objekt-Eigenschaften in UserForm suchen
von: Bernhard
Geschrieben am: 04.07.2002 - 13:40:20

Ich benötige jedoch noch das Auslesen der Eigenschaften wie:
Visible
Top
Left
usw.
Gibt es da auch eine Lösung ?
nach oben   nach unten

Re: Objekt-Eigenschaften in UserForm suchen
von: Hajo_Zi
Geschrieben am: 04.07.2002 - 13:50:11

Hallo Bernhard

leider hast Du nichts dazu geschrieben wie Du die Eigenschaften haben willst


    Dim As Integer
    For I = 1 To 49
        With Controls("K_" & I).Name
            MsgBox Controls("K_" & I).Name & " Eigenschaft Visible " & Controls("K_" & I).Visible
            ' usw
        End With
    Next I

Gruß Hajo


nach oben   nach unten

Re: Objekt-Eigenschaften in UserForm suchen
von: Bernhard
Geschrieben am: 04.07.2002 - 14:13:02

Also: ich möchte (in einer UserForm) einen Beriech mit 49 Labelfelder, entsprechend den Inhalten und dem Zustand (Visible oder Not Visible) bestimmte Felder anzeigen lassen.
D.H. 1 - 49 davon 6 Zahlen (Lotto) über Textfelder eingeben, jetzt gesucht und wenn gefunden Labelx auf visible true setzten.
Ebenso soll, wenn der Anwender in dem Feld 6 Zahlen angeklickt hat (dadurch Visible True) sollen die Zahlen in die Textfelder sortiert eingetragen werden. Ich hoffe ich war klar genug.
Ich habe aber in Deinem 2. Beispiel schon etwas gefunden, das vielleicht weiter hilft: = with Controls("K_" & I).Name

Gruß
Bernhard

nach oben   nach unten

Re: Objekt-Eigenschaften in UserForm suchen
von: Bernhard
Geschrieben am: 04.07.2002 - 14:30:15

Also: ich möchte (in einer UserForm) einen Beriech mit 49 Labelfelder, entsprechend den Inhalten und dem Zustand (Visible oder Not Visible) bestimmte Felder anzeigen lassen.
D.H. 1 - 49 davon 6 Zahlen (Lotto) über Textfelder eingeben, jetzt gesucht und wenn gefunden Labelx auf visible true setzten.
Ebenso soll, wenn der Anwender in dem Feld 6 Zahlen angeklickt hat (dadurch Visible True) sollen die Zahlen in die Textfelder sortiert eingetragen werden. Ich hoffe ich war klar genug.
Ich habe aber in Deinem 2. Beispiel schon etwas gefunden, das vielleicht weiter hilft: = with Controls("K_" & I).Name

Gruß
Bernhard

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Objekt-Eigenschaften in UserForm suchen"