TextBox und SetFocus Problem!

Oliver · 2005-01-07T11:41:49+00:00

Hi an alle, ich steck mal wider fest. Ich habe eine UserForm, mit mehreren TextBoxen, über die Eingaben erfolgen sollen. Durch ein AfterUpdate Ereignis wird überprüft, ob der eingegebene Wert eine Zahl ist. Wenn nicht, wird der TextBoxinhalt gelöscht. Wenn die Eingabe eine Zahl war, wird die nächste TextBox eingeblendet. Das funktioniert auch soweit. Nun möchte ich aber, dass wenn die Eingabe keine Zahl war, der Textfeldinhalt gelöscht wird und der Coursor wieder in der TextBox steht. Wenn die Eingabe eine Zahl war, soll der Coursor in der neu eingeblendeten TextBox stehen. Ich habe das mit nachfolgendem Code versucht zu realisieren, aber leider funktioniert das setzen des Coursors nicht. Woran kann das liegen? Hat jemand eine Idee? Wäre super. Private Sub TextBox1_AfterUpdate() If Not IsNumeric(TextBox1) Then MsgBox "Die Eingabe muss nummerisch sein!" TextBox1 = "" TextBox1.SetFocus GoTo Ende End If TextBox2.Visible = True Label2.Visible = True TextBox2.SetFocus Ende: End Sub Danke Euch schon mal im Vorfeld für die Hilfe, Oliver

Danke Dir Matthias,
dass Du noch mal geantwortet hast. Ich habe das jetzt mal bei mir geändert. Die TextBox wird nun nicht verlassen, aber der Focus steht dann nicht in der TextBox, sondern auf einer Schaltfläche, die zum Beenden der UserFrom dient (Ist zu dem Zeitpunkt das einzige Element was in der UserForm angezeigt wird, da alles andere erst durch die richtigen Eingaben in den Textfeldern eingeblendet wird). Wenn ich aber eine Zahl eingebe und somit die Bedingung erfüllt ist, mir dann die zweite TextBox eingeblendet wird und der Focus in TextBox2 springen sollte, dann wird der Focus auf TextBox1 gesetzt. Wie bekomme ich das hin, das der Focus dann wieder in der TextBox steht, bzw. bei Erfüllung der Bedingung auf die nächste TextBox wechselt?
Mein Code sieht nun folgendermaßen aus:


Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Not IsNumeric(TextBox1) Then
MsgBox "Die Eingabe muss nummerisch sein!"
TextBox1 = ""
TextBox1.SetFocus
Else
TextBox2.Visible = True
Label2.Visible = True
TextBox2.SetFocus
End If
End Sub

Ich hoffe, da gibt es eine Lösung. Denn immer wieder die Felder mit der Maus anwählen ist lästig.
Danke und Gruß,
Oliver

Moin,
ich habe jetzt für mich eine Lösung gefunden, die ich hier gerne mitteilen möchte. Da es scheinbar Probleme gibt, wenn eine textBox ausgeblendet ist, gleich nach dem Einblenden den Focus auf die eingeblendete TextBox zu setzen habe ich anstelle dass ich die TextBoxen ausblende, die Hintergrundfarbe und die Schriftfarbe geändert. Also wenn die UserForm geöffnet wird, erhalten alle Label- und Textfelder die Farbe der UserForm. Sie sind somit von der optik her ausgeblendet, aber dennoch da. Wenn nun das Kriterium erfüllt ist, ändere ich die Farbe des nächsten Label- und Textfeldes. Somit kann der Focus auf das nächste Textfeld ohne Probleme übergeben werden. Der Code für z.B. TextBox1 sieht somit nun folgendermaßen aus:


Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Freigabe_TextBox1 = 1 Then
If Not IsNumeric(Me.TextBox1.Value) Then
MsgBox "Die Eingabe muss nummerisch sein!"
Me.TextBox1 = ""
Cancel = True
Else
With TextBox2
.BackColor = &H80000005
.SpecialEffect = fmSpecialEffectSunken
End With
Label2.ForeColor = &H80000008
TextBox2.SetFocus
End If
End If
Freigabe_TextBox1 = 0
End Sub

Die If Abfrage nach der Variablen Freigabe_TextBox1 mache ich, da ich in der UserForm einen Buttton habe, mit dem ich die UserForm ohne die Daten zu übernehmen beenden kann. Das funktionierte ohne die Abfrage nicht, da immer die MsgBox mit der Fehlermeldung erschien. Mit dieser Abfrage erscheint sie nicht mehr.
Sollte doch noch jemand eine Lösung für mein obiges Problem haben, dann bitte hier reinschreiben, damit ich das dann in meine userForm übernehmen kann, da mir eine Lösung mit ausblenden lieber wäre.
Schönes Wochenende,
Oliver

Forumthread: TextBox und SetFocus Problem!

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial