SetFocus klappt nicht korrekt ...

04/07/2008 - 16:45 von Jürgen Stadermann | Report spam
Hallo!
Da habe ich eine UserForm1 mit den Textboxen 1 bis 15 und einem
Commandbutton1.
Starte ich die Userform über:

Private Sub Workbook_Open()
UserForm1.Show
SetFocus = UserForm1.TextBox15.Text
End Sub

ist der Focus auf dem Commandbutton1 gesetzt und nicht auf der TextBox15.

In der Textbox 15 steht:

Private Sub TextBox15_Change()
SetFocus = TextBox1.Text
End Sub

Leider wird von hier ebenfalls nicht die Textbox1 aktiviert sonder wieder
der Commandbutton1.
Bin ich aber in der Textbox1, 2 ,3, bis 14 geht dann korrekt jeweils der
Focus zur nàchten Textbox .
Frage:"Warum klappt das in den oben genannten Fàllen nicht?"
Mit der Bitte um hilfreiche Antwort.
Jürgen
 

Lesen sie die antworten

#1 stefan onken
04/07/2008 - 17:04 | Warnen spam
hallo Jürgen,
SetFocus gehört zur Textbox, dass schreibt man dann so:
UserForm1.TextBox15.SetFocus

und die Reihenfolge muss auch anders, probier mal

Private Sub Workbook_Open()
UserForm1.TextBox15.SetFocus
UserForm1.Show
End Sub

Gruß
stefan




On 4 Jul., 16:45, "Jürgen Stadermann" wrote:
Hallo!
Da habe ich eine UserForm1 mit den Textboxen 1 bis 15 und einem
Commandbutton1.
Starte ich die Userform über:

Private Sub Workbook_Open()
UserForm1.Show
SetFocus = UserForm1.TextBox15.Text
End Sub

ist der Focus auf dem Commandbutton1 gesetzt und nicht auf der  TextBox15.

In der Textbox 15 steht:

Private Sub TextBox15_Change()
SetFocus = TextBox1.Text
End Sub

Leider wird von hier ebenfalls nicht die Textbox1 aktiviert sonder wieder
der Commandbutton1.
Bin ich aber in der Textbox1, 2 ,3, bis 14 geht dann  korrekt  jeweils der
Focus zur nàchten Textbox .
Frage:"Warum klappt das in den oben genannten Fàllen nicht?"
Mit der Bitte um hilfreiche Antwort.
Jürgen

Ähnliche fragen