Userform: Anzeige der Textbox-Nummern

[Rabe]

Hallo zusammen,

ich habe eine Userform mit 3 Pages und insgesamt um die 300 Textboxen/Checkboxen/OptionButtons usw.

Wie kann ich die Nummern der Elemente in der Userform anzeigen lassen und am besten noch ausdrucken?

[IchBinIch]

Hallo Ralf,

als Beispiel für TextBoxen so:

Sub SteuerelementeAuslesen()
Dim obj As Control

For Each obj In UserForm1.Controls

    If TypeName(obj) = "TextBox" Then
        Debug.Print obj.Name
    End If

Next obj

End Sub

VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media
Code erstellt und getestet in Office 12 - mit VBAHTML 12.6.0

Bei verschiedenen Steuerelementen vermutlich besser über eine Select Case-Anweisung.

Gruß
ich

[Rabe]

Hallo,

als Beispiel für TextBoxen so:

ich dachte eher an einen Ausdruck, eine Anzeige der Userform und dort dann die Sichtbarkeit der Nummern.
Soviel ich mich erinnern kann, sah man das früher im Editor, wenn man die Aktivierreihenfolge einstellen wollte. Ich muß doch irgendwie sehen, welches Element jetzt in welcher Reihenfolge ist. Bei 300 Textboxen kann ich mir doch nicht merken, welches jetzt 255 ist oder 125 usw.

[IchBinIch]

Hallo Ralf,

ich verstehe schon worum es Dir geht nur fällt mir keine passende Lösung ein .

Gruß
Ich

[Rabe]

Hallo,

ich verstehe schon worum es Dir geht nur fällt mir keine passende Lösung ein

ok, dann sind wir schon mal zwei. :22:

[Kuwer]

Hi Ralf,

vielleicht sowas:

Private Sub UserForm_Click()
 Dim oCon As MSForms.Control, i As Long
 On Error Resume Next
 For Each oCon In Me.Controls
   oCon.Caption = oCon.Name
   oCon.Value = oCon.Name
 Next oCon
 For Each oCon In Me.Controls
   If TypeName(oCon) = "MultiPage" Then
     For i = 0 To oCon.Pages.Count - 1
       oCon.Value = i
       Me.PrintForm
     Next i
   End If
 Next oCon
 Me.PrintForm
End Sub

Gruß Uwe

[IchBinIch]

Raffiniert!
Den Namen in das Steuerlement schreiben .

[Rabe]

Hallo Uwe,

vielleicht sowas:

danke, hat sehr gut geklappt!

[Gast 123]

Hallo Uwe,

ich hatte vor Rabe auch eine Lösung anzubieten, z.B. die Mappe mit UserFormen aufzulisten, bin aber vom fachlichen her steckengeblieben, weil mir das nötige Wissen fehlt wie man UserFormen als VbComponent auflisten kann. Anbei mal eine Beispieldatei was ich selbst herausgefunden habe, aber alle drei UserFormen als Objekt auflisten habe ich nicht geschafft. Ich wollte sie als Universal Datei entwickeln um eine externe Mappe komplett auflisten zu können. 

Die Tabellen Properties kann ich über VbComponent Properties mittels For Next Schleife über Index auflisten, aber ich fand im Internet kein Beispiel wie man die UserForm Controls über Index auslesen kann?  Oder wie man UserForm und Controls bei externen Mappen als Objekt Variable deklarieren kann / muss.

Hast du dafür einen passenden Vorschlag?  Würde mich sehr freuen.

mfg  Gast 123