Excel und VBA: Formeln, Programmierung, Lösungen

ClassModule: Tabelle1

Dim txtBoxes(1 To 26) As New Klasse1

Private Sub Worksheet_Activate()
   Dim ctr As OLEObject
   Dim iCounter As Integer
   For Each ctr In Me.OLEObjects
      If TypeName(ctr.Object) = "TextBox" Then
         iCounter = iCounter + 1
         Set txtBoxes(iCounter).TxtGroup = ctr.Object
      End If
   Next ctr
End Sub
ClassModule: Klasse1

Public WithEvents TxtGroup As MSForms.TextBox

Private Sub TxtGroup_KeyDown(ByVal KeyCode As _
   MSForms.ReturnInteger, ByVal Shift As Integer)
   If KeyCode = vbKeyTab Then
      If TxtGroup.Index < 26 Then
         Tabelle1.OLEObjects(TxtGroup.Index + 1).Activate
      Else
         Tabelle1.OLEObjects(1).Activate
      End If
   End If
End Sub

    

Beiträge aus dem Excel-Forum zu den Themen Dialog und TextBox