Erste leere TextBox einer Userform erm.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Dim i As Integer For i = 1 To 3 If TKonten_Userform.Controls("txtbx_Bezeichnung" & i) = "" Then MsgBox "Die nächste freie TextBox ist: txtbx_Bezeichnung" & i TKonten_Userform.Controls("txtbx_Bezeichnung" & i).SetFocus Exit For End If Next i

Naja du musst auch die Textboxnamen entsprechend anpassen, wenn das mit so einer Zählschleife gehen soll, also die erste Textbox muss dann auch "txtbx_Bezeichnung1" heißen, dh alle Textboxen müssen eine Nummer haben.
Außerdem musst du den Schleifenendwert an die Anzahl der Textboxen anpassen:


for i = 1 to 6

Es gibt aber noch eine andere Möglichkeit, wenn du die Textboxen bzw deren Benennung nicht durchnumnerieren willst, sondern vielleicht sprechender Namen verwenden möchtest wie "Textboxen_Name" statt "Textbox1"


For each bez in Array("Bezeichnung1", "Bezeichnung2", "Bezeichnung3") 'hier alle Bezeichnungen listen
If TKonten_Userform.Controls("txtbx_" & bez).value = "" then
MsgBox "Die nächste freie TextBox ist: " & bez
TKonten_Userform.Controls("txtbx_Bezeichnung" & i).SetFocus
Exit For
End If
Next

Du musst hier zwar alle Boxen im Array auflisten, dafür bist du beim Textboxnamen nicht an die Nummerierung gebunden sondern kannst diese frei wählen, ebenso die Reihenfolge über die Anordnung im Array.
Gruß Daniel

Private Sub CommandButton1_Click() For i = 1 To 6 For Each bez In Array("Bezeichnung1", "Bezeichnung2", "Bezeichnung3", "Bezeichnung4", "Bezeichnung5", "Bezeichnung6") 'hier alle Bezeichnungen listen If TKonten_Userform.Controls("txtbx_" & bez).Value = "" Then MsgBox "Die nächste freie TextBox ist: " & bez TKonten_Userform.Controls("txtbx_Bezeichnung" & i).SetFocus Exit For End If Next End Sub

Private Sub CommandButton1_Click() Dim ctrText As Control, loZähler As Long, boLeer As Boolean loZähler = 1 For Each ctrText In Me.Controls If LCase(TypeName(ctrText)) = "textbox" Then If ctrText = "" Then boLeer = True strName = ctrText.Name Exit For End If End If Next ctrText If boLeer Then MsgBox "Die Textbox " & ctrText.Name & " ist leer." Me.Controls(strName).SetFocus Else MsgBox "Es sind alle Textboxen gefüllt." End If End Sub

Private Sub CommandButton1_Click() Dim ctrText As Control, boLeer As Boolean For Each ctrText In Me.Controls If LCase(TypeName(ctrText)) = "textbox" Then If ctrText.Name Like "txtbox_AB*" Or ctrText.Name Like "txtbox_SB*" Then 'nix machen Else If ctrText = "" Then boLeer = True strName = ctrText.Name Exit For End If End If End If Next ctrText If boLeer Then MsgBox "Die Textbox " & ctrText.Name & " ist leer." Me.Controls(strName).SetFocus Else MsgBox "Es sind alle Textboxen gefüllt." End If End Sub

Private Sub CommandButton1_Click() Dim ctrText As Control, boLeer As Boolean For Each ctrText In Me.Controls If LCase(TypeName(ctrText)) = "textbox" Then If ctrText = "" Then boLeer = True strName = ctrText.Name Exit For End If End If Next ctrText If boLeer Then MsgBox "Die Textbox " & ctrText.Name & " ist leer." Me.Controls(strName).SetFocus Else MsgBox "Es sind alle Textboxen gefüllt." End If End Sub

Beliebteste Forumthreads (12 Monate)

Erste leere TextBox einer Userform erm.

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Erste leere TextBox einer Userform erm.

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread