Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema Userform
BildScreenshot zu Userform Userform-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Image
BildScreenshot zu Image Image-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen

TextBoxen - TabIndex

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.

  

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



  

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.