Office: TextBox1 wieder Focus setzen

Hallo liebe Community.

Ich hab folgendes kleines Problem. Meine VBA Excel Programmierung ist fast zu 100% fertig fehlt nur noch ein kleines Problem.

Folgendes:

Ich habe eine Userform programmiert mit einer TextBox1 und 4 Checkboxen.
Die Eingabe in die TextBox erfolgt mit einem Scanner. Der Scan wird auf den Anfangsbuchstaben überprüft und dann direkt in eine Zelle übertragen. Auch die jeweilige CheckBox wird daraufhin auf "True" gesetzt.

Ich hab jetzt folgendes Prob. Und zwar will ich das nach jedem Scan dann wieder die TextBox1 im Fokus ist bzw der Mauszeiger sich darin befindet sodass ich den Scanner nicht aus der hand legen muss un die 4 Scans nacheinander durchführen kann.

Code:

Das derCode.

Über eine schnelle Antwort würde ich mich sehr freuen *Smilie

:)

 

Hallo Enkelma,

ein Control kann niemals den Focus auf sich selbst setzen.

Da musst Du Dir eine andere Strategie ausdenken.

Gruß Peter

 

Hmm könntest du das vllt ein bischen genauer erläutern weil ich das versteh ich jetzt nicht *biggrin.gif*...Bin noch nicht so der pro in VBA...

Gruß Oli...btw Code hat sich nen bisschen geändert.

Code:

 

Hallo Oli,

aus einem Ereignis-Makro, wie z. B. Private Sub TextBox1_Change() oder Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean), kannst Du den Focus nicht auf die TextBox setzen.
Das geht aber z. B. aus einem CommandButton_Click Ereignis. Wenn Du da die TextBoxes prüfst, kannst Du den Focus wohl wieder auf die TextBox setzen, z. B. wenn die nicht oder aber fehlerhaft gefüllt ist.

Gruß Peter

 

Hmm ok ich glaub ich habs verstanden.

Dann könnt eich praktisch ein bisschen mogeln und einen unsichtbaren button auf meine userform machen der mit
TextBox1.Setfokus
verbunden ist.

Das sollte doch funktionieren ? Gibts da für nen Codebeispiel?

 

Also ich hab jetzt noch weiterrumprobiert aber ich komm einfach zu keinem ERgebniss. Der Fokus springt nicht in die Textbox .

Laufzeitfehler 2110 oder so äöhnlich von wegen Objekt ist nicht für einen Fokus geeignet oder deaktiviert oder unsichtbar.

Hab ich aber alles überprüft. ICh brauch echt dringend hilfe *frown.gif*

Code:

 

hallo
Bin auch noch am rumtueffteln. Hab was gebastelt mit Zaehler. aber das Change Ereigniss muss noch mit Enter angeschoben werden. Muss aber erst noch weg. Bastel nachher noch weiter. Das Prob. ist das ich nur per Strg+V etwas in die TextBox einfuegen kann. Vlt. bekomme ich noch was mit send Key hin
gruss hary

 

Hallo hary vllt erinnerst dich noch han mich von letzte Woche und vllt is dir aufgefallen das das dasselbe Projekt ist *Smilie

Ich glaub auch das das wieder am Frame liegt so wie letztes mal das er nicht dorthinein springt wieder.
Ich poste dir nochmal den kompletten Code + screenshot userform:


Code:

 

Problem immer noch net gelöst *frown.gif*

 

So Problem erledigt *wink.gif*

Mit genügend wille geht alles *wink.gif*
Danke trotzdem !

 

Hallo
kam gestern nicht mehr dazu.
Wie hast Du es jetzt geloest?
gruss hary

 

Hallo Hary

Ich hab in der Userform1 bei allen Objekte außer meiner TextBox1 und meinem CommandButton 1 den TabStop auf false gesetzt. Dann springt er nicht mehr weiter sondern muss zwangsweise wieder in die TextBox1 reinspringen.
Code sieht dann so aus:


Code:

UserForm:
Hier sieht man unter der TextBox den Commandbutton auf minimaler größe....wenn ich den auf invisible stell funkt leider nimmer. mal schauen wie ich den noch versteck *Smilie





So ich denke ich lerner sehr schnell dazu *Smilie
Danke nochmals.
Gruß