Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
540to544
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
540to544
540to544
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

TextBox und SetFocus Problem!

TextBox und SetFocus Problem!
07.01.2005 11:41:49
Oliver
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

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: TextBox und SetFocus Problem!
07.01.2005 11:47:58
Matthias
Hallo Oliver,
verwende zur Eingabeprüfung das Ereignis TextBox1_Exit(). Die hat ein Cancel-Argument, wenn du dieses in der Prozedur auf True stellst, wird die Textbox nicht verlassen.
Gruß Matthias
Einen Teil der Antwort verstehe ich leider nicht!
Oliver
Hi Matthias,
Danke Dir erst einmal für Deine Antwort. Eines verstehe ich leider nicht an Deiner Antwort. Was meinst Du mit
Zitat:
Die hat ein Cancel-Argument, wenn du dieses in der Prozedur auf True stellst, wird die Textbox nicht verlassen.
Was meinst Du damit. Wäre super, wenn Du mir das noch erklären könntest.
Gruß,
Oliver
AW: Einen Teil der Antwort verstehe ich leider nic
07.01.2005 12:01:36
Matthias
Hallo Oliver,
ein Beispiel:
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox1 = 12 Then Cancel = True
End Sub
Wenn die Textbox 12 drinstehen hat, dann wird sie einfach nicht verlassen...
Gruß Matthias
Anzeige
Leider funktionierts nur zum Teil!
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
Anzeige
AW: Leider funktionierts nur zum Teil!
07.01.2005 12:49:10
Matthias
Hallo Oliver,
du hast das Cancel = True vergessen...
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Not IsNumeric(TextBox1) Then
MsgBox "Die Eingabe muss nummerisch sein!"
TextBox1 = ""
Cancel = True
Else
TextBox2.Visible = True
Label2.Visible = True
TextBox2.SetFocus
End If
End Sub
Evtl. kannst du noch die Eigenschaft "TakeFocusOnClick" des Buttons auf "False" stellen.
Viel Erfolg!
Matthias
Super, aber wie den Focus in die nächste TextBox!
Oliver
Hi Matthias,
super, jetzt bleibt der Coursor schon mal in der TextBox, wenn die Bedingung nicht erfüllt ist. Aber wie bekomme ich das hin, dass wenn die nächste TextBox eingeblendet wird, der Coursor in die gerade eingeblendete TextBox springt? Das tut er im Moment nämlich nicht. In dem Code ist zwar der Befehl TextBox2.SetFocus vorhanden, aber der Coursor bleibt in der anderen TextBox und markiert mir die vorher getätigte Eingabe. Gibt es da auch noch eine Lösung? Ich hoffe doch?
Danke noch mal,
Oliver
Anzeige
AW: Super, aber wie den Focus in die nächste TextB
07.01.2005 15:10:32
Matthias
Hallo Oliver,
es lag an einem kleinen Wörtchen:
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Not IsNumeric(TextBox1) Then
MsgBox "Die Eingabe muss nummerisch sein!"
TextBox1 = ""
Cancel = True
Else
TextBox2.Visible = True
Label2.Visible = True
DoEvents
TextBox2.SetFocus
End If
End Sub
DoEvents veranlasst Excel, noch nicht fertiggestellte Aufgaben zu erledigen, in diesem Fall das Sichtbarmachen von Textbox2.
Gruß Matthias
Es funktioniert leider nicht!
Oliver
Hi Matthias,
danke Dir für Deine Antwort. Sorry, aber es funktionierrt nicht. Wenn ich TextBox1 fülle, die Returntaste betätige, wird TextBox2 eingeblendet, aber der Coursor bleibt in TextBox1 und markiert mir immer noch die vorher eingegebene Eingabe in TextBox1. Erst wenn ich dann erneut die Entertaste betätige, springt der Coursor in TextBox2. Das hätte ich aber lieber, wenn beim ersten Betätigen der Returntaste der Coursor in die gerade eingeblendete TextBox springt. Hast Du noch eine Idee, woran das liegen könnte?
Gruß,
Oliver
Anzeige
AW: Es funktioniert leider nicht!
07.01.2005 16:08:06
Matthias
Hallo Oliver,
seltsam...
vorhin hat es bei mir funktioniert, jetzt aber auch nicht mehr...
bin leider ratlos.
Gruß Matthias
Hat noch jemand anderes eine Idee?
Oliver
Hi Matthias,
schade, dass Dir im Moment nichts mehr einfällt. Eventuell hast Du ja später oder jemand anders eine Idee und kann hier weiterhelfen. Danke Dir auf jeden Fall noch mal für Deine Hilfe, sie hat mich ja immerhin schon ein bisschen weitergebracht. Für den Rest hoffe ich gibt es sicherlich auch noch eine Lösung.
MfG,
Oliver
Habe eine zuriedenstellende Lösung erarbeitet!
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
Anzeige

35 Forumthreads zu ähnlichen Themen

Set Focus auf msoControlEdit?Position in SubMenü?
Andreas

Hallo Herber Fans,
ich habe ein Problem mit einer msoControlEdit (Textfeld). Ich habe mir in einen Commandbar ein Textfeld eingesetzt, aus dem ich auch den Wert auslesen kann. Wenn dieser Wert eine Zahl ist, ist alles in Ordnung. Aber ich möchte den Wert aus der Textbox auch über IF is num...
18.08.2008 15:46:00
Thread-ID: 1002640
9 Beiträge
Anzeige
TextBox.SetFocus
Frank

Hallo Zusammen und 'nen schönen Guten Abend oder Guter Nacht!
Brauche wieder einmal Rat!
Eine UF wird aus einem Tabellenblatt mit Daten befüllt. Können immer unterschiedlich viele sein, so dass ich mittels folgendem Code:
Private Sub UserForm_Activate() Dim i As Integer For i = 1...
16.06.2009 23:57:39
Thread-ID: 1082091
5 Beiträge
SetFocus funktioniert nur einmal
Uwe

Hallo, ich bin's nochmal.Hab da noch so'n Phänomen:Also ich lade eine Userform per UserformName.show vbmodeless. Vorher setze ich den Mauszeiger per "UserformName.TextboxName.SetFocus" auf eine bestimmte Textbox.
Das Ganze funktioniert aber seltsamerweise nur einmal.
Schließe ich die User...
30.04.2002 12:04:56
Thread-ID: 117412
3 Beiträge
Anzeige
SetFocus auf CommandButton1
Waltraudt

Hallo zusammen im Forum,
ich habe eine UserForm mit 2 TextBoxes und zwei CommandButton.
Beim Aufruf der UserForm wird der CommandButton1 deaktiviert.
Nachdem die 2. Textox ausgefüllt und per Tab verlassen wurde, wird der CommandButton1 wieder aktiviert.
Wie kann ich nach der Akt...
24.01.2013 14:31:33
Thread-ID: 1295828
2 Beiträge
VBA: textbox afterupdate format Datum
Bernd

Hallo zusammen,
irgendwie bekomme ich das nicht richtig hin, vielleicht kann mir jemand behilflich sein und den Code berichtigen.
Hier mein Code, der nicht funktioniert:
Private Sub TextBox5_AfterUpdate() 'TextBox5 = format(CDbl(TextBox5), "TT.MM.JJJJ") End Sub Vielen Dank im...
03.06.2013 19:44:47
Thread-ID: 1316131
3 Beiträge
TextBox.SetFocus
Frank

Hallo Zusammen!
Auf einer UF befinden sich mehrere TextBoxen, welche unterschiedliche Namen haben, also nicht fortlaufend nummeriert sind. Beim Klick auf eine ListBox werden immer unterschiedlich viele TextBoxen gefüllt. Ich möchte nun gern, dass erkannt wird welch die erste leere TextBox i...
14.04.2016 16:54:17
Thread-ID: 1488074
6 Beiträge
TextBox SetFocus
Thomas

Guten Morgen,
mal wieder ein kleines Problem.
Ich habe ein Userform (MA_Neu), welches ich über einen CommandButton aufrufe.
Private Sub CommandButton223_Click() MA_Neu.Show MA_Neu.TextBox1.SetFocus End Sub SetFocus sollte mir eigentlich den Cursor ins erste Textfeld (TextBox1) setz...
31.08.2017 09:14:26
Thread-ID: 1577684
5 Beiträge
VBA: Function in Userform Textbox
Bernd

Hallo zusammen,
Komme bei nachfolgendem Problem nicht weiter und bräuchte Eure Hilfe.
Also bei Verlassen derTextbox1 werden (siehe Code) über VLOOKUP die Werte die in die Textboxen eingelesen. D.h. ich suche folgenden Code sinngemäß: Nehme das Kürzel aus Textbox7 und steuere damit die F...
13.10.2017 09:15:44
Thread-ID: 1585661
8 Beiträge
Anzeige

Links zu Excel-Dialogen

Label TextBox

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
8
2
4
2
3
1
2
5
4
7
3
14
4
8
4
1
3
1
6
1
6
5
3
7
10