Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
524to528
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
524to528
524to528
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

TextBox SetFocus Problem

TextBox SetFocus Problem
27.11.2004 14:49:35
Drazen
Hallo.
folgender Code:
Private Sub txt4_Exit(ByVal Cancel As MSForms.ReturnBoolean) On Error GoTo Fehler txt4.Value = DateValue(txt4) Exit Sub Fehler: MsgBox " Eintrag nur in Form von 01.01.1999 möglich " txt4.Text = "" frm_UGOVORI.txt4.SetFocus End Sub
sollte eigentlich die Eingabe in txt4 prüfen on sie im bestimmten Format ist und wenn nicht, auf dies in einer MsgBox enzeigen. Funktioniert soweit auch prima, nur habe ich in der UF viele TextBoxen und nach Bestätigung des MsgBox springt der Corsor in die Nächste TextBox obwohl ich eigentlich wollte dass die txt4 gelöscht wird und ich eine Neueingabe starten kann im richtigen Format.
Was mach ich falsch?
Grüsse
Drazen

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: TextBox SetFocus Problem
27.11.2004 15:02:35
Frank
Hallo Drazen,
bin mir nicht ganz sicher ob da stimmmt...
Dein Code steht im Exit Ereignis, dass heißt er wird glaube ich ausgeführt, bevor die Textbox verlassen wird. Du drückst z.B. Tab um ins nächste Textfeld zu springen, dann läuft dein Makro, stellt fest das du ein "falsche" Datum eingegeben hast, gibt die msgbox. löscht den Text, stellt sich dann mit setfocus wieder ins TRT4 und verlässt dies dann wieder... Glaube, das liegt daran.
Du mußt also ein anderes Ereignis wählen.
Gruß
Frank
Cancel = True
27.11.2004 15:07:19
Josef
Hallo Drazen!
Frank hat schon recht!
Du musst den Code nur etwas ändern.

Private Sub txt4_Exit(ByVal Cancel As MSForms.ReturnBoolean)
On Error GoTo Fehler
txt4.Value = DateValue(txt4)
Exit Sub
Fehler:
Cancel = True
txt4 = ""
MsgBox " Eintrag nur in Form von 01.01.1999 möglich "
End Sub
Gruß Sepp
Anzeige
Endlich mal! :)
27.11.2004 15:11:19
Frank
...
AW: Cancel = True
27.11.2004 15:22:18
Drazen
Hallo Frank, hallo Sepp,
danke für die schnelle Hilfe, es klappt tatsächlich, hat aber einen Schönheitsfehler, jetzt lässt mich das UF gar nicht mehr weiter bevor ich was im richtigen Format eingegeben habe, was aber wenn ich nichts eingeben will, also diese Textbox umgehen will, jetzt geht die Aktivierungsreihenfolge natürlich die einzelnen txt durch und sobald ich in der Box mal drin bin gehts nicht weiter bevor ich ein Datum eingebe , kann man sowas irgendwie noch hinzufügen?
Drazen
AW: Cancel = True
27.11.2004 15:24:32
Josef
Hallo Drazen!
Kein problem.

Private Sub txt4_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If txt4 <> "" Then
On Error GoTo Fehler
txt4.Value = DateValue(txt4)
Exit Sub
Fehler:
Cancel = True
txt4 = ""
MsgBox " Eintrag nur in Form von 01.01.1999 möglich "
End If
End Sub
Gruß Sepp
Anzeige
AW: Cancel = True
27.11.2004 15:25:11
Frank
Hallo Drazen,
versuch mal als erste Zeile vom Code:
If txt4.Value = "" Then
Exit Sub
End If
...
ungetestet...
Gruß
Frank
AW: Cancel = True
27.11.2004 15:35:29
Drazen
Hallo Frank,
GEHT VOLL AB!!!
THX
Prob vollständig gelöst!
Grüsse
Drazen
AW: Cancel = True
27.11.2004 15:46:37
Drazen
Hallo nochmal,
jetzt wieder ein Problem aufgetaucht, alles klappt wenn ich den code in txt4 einsetze, jetzt wollte ich das ganze aber auch für txt5 im gleichen UF einsetzen, dann bekomme ich eine Fehler-Meldung, "Cancel = True" Cancel sei als variable oder objekt nicht definiert? Wie löse ich die Geschichte also wenn ich den Prozess bei 4 von 10 Textboxes um gleichen UF so anwenden möchte?
Grüsse
Drazen
Das mit dem Prob gelöst war wohl etwas voreilig...
Anzeige
AW: Cancel = True
27.11.2004 15:58:24
Josef
Hallo Drazen!
Das kann man so lösen!

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Cancel = All_Text_Exit(TextBox1)
End Sub

Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Cancel = All_Text_Exit(TextBox2)
End Sub

Private Sub TextBox3_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Cancel = All_Text_Exit(TextBox3)
End Sub

Private Function All_Text_Exit(myBox As Object) As Boolean
If myBox <> "" Then
On Error GoTo Fehler
myBox.Value = DateValue(myBox)
Exit Function
Fehler:
All_Text_Exit = True
myBox = ""
MsgBox " Eintrag nur in Form von 01.01.1999 möglich "
End If
End Function
Gruß Sepp
Anzeige
AW: Cancel = True
27.11.2004 16:19:31
Drazen
Hi,
ALLES PALLETTI !
THX
Grüsse
Drazen

110 Forumthreads zu ähnlichen Themen

TextBox1.SetFocus
peter

Hallo Experten!
Mein Problemchen ist für Euch sicher ein Klax - Bitte Hilfe!
Habe eine Userform z Eingabe v Daten: Textbox, Combobox, div OptButtons in Frames.
Die Eigabe diverser Daten erfolgt in EINER (!) Textbox nacheinander - jeweils durch "Enter"
bestätigt. Nach jeder Ein...
21.01.2009 13:54:16
Thread-ID: 1042163
3 Beiträge
Anzeige
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
Anzeige
TextBox.SetFocus Problem!?
Moritz Holst

Hallo,für der Eingabe in das Formular UserForm2 (Kombi aus FlatScrollBar und TextBox sind Minimal- und Maximalwerte festgelegt. Gibt man einen Wert außerhalb der Skala an, erscheint eine MessageBox mit dem entsprechenden Hinweis. Klickt man OK, landet man NICHT wieder im Eingabefeld (txtNumber3...
27.05.2003 13:10:33
Thread-ID: 262141
2 Beiträge
Textbox.setfocus?!
Andre
Guten Morgen,
ich möchte nach Verlassen einer Textbox in die erste Zelle eines Spreadsheets auf der selben UserForm springen.
Im Prinzip ähnlich wie der Sprung zwischen zwei Textboxen, nur kann ich hier nicht die Eigenschaft TabIndex nutzen.
Der Befehl lautet setfocus, schon klar, aber d...
16.01.2004 08:56:35
Thread-ID: 364897
6 Beiträge
VBA - SetFocus
Thorsten

Hallo VBA-Profis,
ich möchte nach einem Textfeld in der Funktion (AfterUpdate)
einen bestimmten Button einblenden, jedoch diesen nicht aktivieren, sondern einen anderen Button.
folgender befehl funktioniert nicht.
ok_button.SetFocus
mein code sieht wie folgt aus:
Privat...
08.12.2004 23:20:07
Thread-ID: 530196
3 Beiträge
Textbox SetFocus
Fred

Hallo,
wenn sich eine Textbox einem Multipage befindet, greift Textbox1.SetFocus nicht?
Woran könnte das liegen?
Gruß Fred
24.03.2005 01:32:10
Thread-ID: 589944
2 Beiträge
Textbox1.SetFocus Problem
Alex

Liebe Excelgemeinde!
ich wende mich an euch mit folgendem Problem:
ich übertrage Daten per UF aus Textboxen, Comboboxen, etc. in eine Tabelle. Zum Abschluss des Makros werden die Felder alle wieder zurückgesetzt. Das funktioniert auch, aber ich erhalte, wenn der Cursor in bestimmten Fel...
03.12.2005 21:18:33
Thread-ID: 704202
5 Beiträge
Anzeige

Links zu Excel-Dialogen

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
2
4
5
4
14
1
5
2
1
4
2
10
4
28
3
2
4
5
4
14
1
5
2
1
4