VBA: Gleiches Ereignis für mehrere UF-Textboxen
23.02.2004 11:39:43
Lupus
gestern hatte Nepumuk auf Automatisch zur nächsten Zelle springen (ohne Tab) wieder mal eine tolle Lösung angeboten.
Nun hat man ja in einer UF mehrere Textboxen; wie ist es nun möglich, gezielt in mehreren aber nicht allen Textboxen das gleiche Ereignis auszuführen.
Als Beispieldatei habe ich die von Nepumuk verwendet, jedoch 3 weiter Textboxen hinzugefügt und das Change-Ereignis der Textboxen gelöscht. Nun soll das Ereignis nur für TB-1, TB-3 und TB-5 gelten.
Den Code habe ich folgender maßen verändert:
Private Sub UserForm_Activate()
Dim intIndex As Integer
For intIndex = 1 To 6
Select Case intIndex
Case 1, 3, 5
Set TextBoxen(intIndex).myTextBox = Controls("TextBox" & CStr(intIndex))
End Select
Next
End Sub
Wird der intIndex in der Schleife auf 5 gesetzt, kommt es zu einer Fehlermeldung. Laufzeitfehler. Index außerhalb des gültigen Bereichs.
Wie müsste der Code richtig lauten?
Hier die dazugehörige Datei: https://www.herber.de/bbs/user/3884.xls
Gruß Lupus
Anzeige