TabIndex per Makro ändern
07.08.2018 13:43:00
Ludmila
ich möchte den TabIndex der Text,- und ComboBoxen per Makro ändern.
Die Boxen sind nicht in einem Frame und sollen je nach Button neu definiert werden.
In der Userform sind nur ein Paar Boxen.
Danke!
Gruß
Ludmila
Private Sub CommandButton1_Click()
For Each obj In Me.Controls
If TypeName(obj) = "TextBox" Or TypeName(obj) = "ComboBox" Then
obj.TabIndex = 0
End If
arr = Array("T1", "T2", "C1", "T3", "T4")
For ii = 0 To UBound(arr)
If obj.Name = arr(ii) Then obj(arr(ii)).TabIndex (ii) 'Fehler 451
Next
Next obj
End Sub
Private Sub CommandButton2_Click()
For Each obj In Me.Controls
If TypeName(obj) = "TextBox" Or TypeName(obj) = "ComboBox" Then
obj.TabIndex = 0
End If
arr = Array("TBox1", "TBox2", "TBox3", "CBox1", "TBox4")
For ii = 0 To UBound(arr)
For intI = 0 To 4
If obj.Name = arr(ii) Then obj.TabIndex (intI)
Next intI
Next
Next obj
End Sub