Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Userform: Anzeige der Textbox-Nummern
#1
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?
Antworten Top
#2
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
Antworten Top
#3
Hallo,

(27.10.2016, 10:46)IchBinIch schrieb: 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.
Antworten Top
#4
Hallo Ralf,

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

Gruß
Ich
Antworten Top
#5
Hallo,

(27.10.2016, 15:56)IchBinIch schrieb: ich verstehe schon worum es Dir geht nur fällt mir keine passende Lösung ein Undecided

ok, dann sind wir schon mal zwei. :22:
Antworten Top
#6
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
[-] Folgende(r) 2 Nutzer sagen Danke an Kuwer für diesen Beitrag:
  • IchBinIch, Rabe
Antworten Top
#7
Raffiniert!
Den Namen in das Steuerlement schreiben Exclamation.
Antworten Top
#8
Hallo Uwe,

(27.10.2016, 18:32)Kuwer schrieb: vielleicht sowas:

danke, hat sehr gut geklappt!
Antworten Top
#9
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


Angehängte Dateien
.xls   Mappe auflisten.xls (Größe: 40 KB / Downloads: 6)
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste