TextBoxen - TabIndex

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
UserForm TextBox
Bild

Betrifft: TextBoxen - TabIndex
von: Frank H.
Geschrieben am: 29.06.2015 16:58:40

Hallo Zusammen!
Ich habe mehrere Arbeitsmappen, diese haben identische UF. Auf denen befinden sich mehrere TextBoxen. Kann man mittels Makro den TabIndex festlegen.
So möchte ich gern per Tab springen, immer von links nach rechts. Diese TextBoxen
sollen angesprochen werden.
46 64 73 91
47 65 74 92
.......
54 72 81 99
Gibt es eine Lösung, ohne dass ich in den Eigenschaften, bzw. in der Aktivierreihenfolge, dass ändern muss.
Bin für jede Hilfe dankbar!
Gruß Frank H.

Bild

Betrifft: AW: TextBoxen - TabIndex
von: Sepp
Geschrieben am: 29.06.2015 18:13:38
Hallo Frank,
ungetestet!

' **********************************************************************
' Modul: UserForm1 Typ: Userform
' **********************************************************************

Option Explicit



Private Sub UserForm_Initialize()
  Dim lngN As Long, lngI As Long
  
  lngI = 1
  For lngN = 46 To 54
    Me.Controls("TextBox" & lngN).TabIndex = lngI
    Me.Controls("TextBox" & lngN + 18).TabIndex = lngI + 1
    Me.Controls("TextBox" & lngN + 27).TabIndex = lngI + 2
    Me.Controls("TextBox" & lngN + 45).TabIndex = lngI + 3
    lngI = lngI + 4
  Next
  
End Sub


Gruß Sepp


Bild

Betrifft: AW: TextBoxen - TabIndex
von: Frank H.
Geschrieben am: 29.06.2015 18:21:37
Hallo Sepp!
Du bist wie immer Spitze, denn es funzt super und erspart mir 'ne Menge an Zeit.
Danke und Gruß Frank H.

 Bild

Beiträge aus den Excel-Beispielen zum Thema "excel "vergisst" hyperlinks ?"