VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Mit der TabTaste in Tabellenblatt-TextBoxes springen

Gruppe

Dialog

Bereich

TextBox

Thema

Mit der TabTaste in Tabellenblatt-TextBoxes springen

Problem

Mit der TabTaste soll in Tabelle1 von TextBox zu TextBox gesprungen werden. Die TextBoxes sind in einer eigenen Klasse zusammengefaßt.

Lösung

Geben Sie den Ereigniscode in die nachfolgend genannten Module ein.




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