Index-Nr. für Objekte in Userform

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hi.
Dann benenn die Textboxen um, deren Name ist ja frei wählbar. Der erste wichtige Schritt beim Aufbau einer UF ist immer eine Struktur, die eine gewisse Automatisierung zulässt. Ohne das wirst Du wahnsinnig.
Selbst mit dem Index von VB kämst Du anders nicht weiter, da dort dann alle TextBoxen denselben Namen hätten und sich nur den Index unterscheiden.
Ein Alternative wäre noch, alle Controls durchzugehen und nur mit den Textboxen irgendwelche Operationen durchzuführen:

Dim myCtl As Control
For Each myCtl In UserForm1.Controls
If TypeOf myCtl Is MSForms.TextBox Then
myCtl.Value = Now
End If
Next

Das kannst Du natürlich um weitere Prüfungen ergänzen, damit Du nur die Textboxen erwischst, die Du haben willst.
Oder Du packst am Anfang alle relevanten Textboxen in eine Collection, dann kannst Du die danach wieder abrufen. Dann hast Du den Aufwand wenigstens nur ein Mal.

Dim myCol As New Collection
Private Sub CommandButton1_Click()
Dim myCtl As Control
For Each myCtl In myCol
myCtl.Value = Now
Next
End Sub
Private Sub UserForm_Initialize()
With Me
myCol.Add .TextBox1
myCol.Add .TextBox5
myCol.Add .TextBox7
End With
End Sub

Gruss, Jogy

Hallo Jogy,
ich hatte die Textbox-Namen nach Inhalt vergeben, um nicht immer nachschauen zu müssen, um welche es sich denn handelt. Deine Hinweise sind natürlich richtig.
Da es sich in dem Fall um meine erste vollständige UF handelt, buch ich das unter "Anfänger-Fehler".
Mir ging es in diesem Fall zum Beispiel darum, die 10 Textboxen, die ich habe darauf zu prüfen, ob tatsächlich eine Zahl eingetragen wurde und nicht etwa Text, was im Code dann natürlich zu Fehlern führt.
Vorerst habe ich diese Prüfung außen vor gelassen und "vertraue" auf die User, dass die richtigen Daten eingegeben werden. Einige andere Plausibilitätsprüfungen habe ich jedenfalls eingebaut.
Danke und Gruß
David

Private Sub CommandButton1_Click() Dim iIndx As Integer For iIndx = 1 To 7 If Trim(Controls("TextBox" & iIndx)) = "" Then MsgBox "Bitte auch die TextBox" & iIndx & " ausfüllen - danke", _ 16, " Hinweis für " & Application.UserName Exit For End If Next iIndx End Sub

Beliebteste Forumthreads (12 Monate)

Index-Nr. für Objekte in Userform

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Index-Nr. für Objekte in Userform

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread