Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
580to584
580to584
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Anzeige
Inhaltsverzeichnis

text aus textbox übernehmen

Forumthread: text aus textbox übernehmen

text aus textbox übernehmen
10.03.2005 19:04:12
bastian
Hi,
ich möchte den in eine Textbox eingetragen Text in eine Variable schreiben. Wenn der Text nicht bestimmte Codes sind, möchte ihc dem user eine MsgBox mit einem Hinweis schicken. Wenn ich es wie folgt mache reagiert das Skript schon während der Eingabe, gleich nach dem ersten Buchstaben. Ich möchte aber den Check erst nach der Eingabe durchführen. Wie geht das ? Hat jemand einen Tipp ?

Private Sub Textbox1_Change()
Textbox1_Entry = Textbox1.Value
If (Textbox1_Entry = "xyz") Or (Textbox1_Entry = "fgd") Then
Else
MsgBox "Der eingebene Code ist nicht zulässig !"
Exit Sub
End If
End Sub

Gruss & Dank Bastian
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
TextBox1_Exit oder TextBox1_LostFocus()
10.03.2005 19:37:23
ransi
hallo bastian
wenn du die textbox auf einer userform hast dann nimm:

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
'hier deine prüfung
End Sub

wenn sie im tabellenblatt ist nimm:

Private Sub TextBox1_LostFocus()
'hier deine prüfung
End Sub

ransi
Anzeige
AW: TextBox1_Exit oder TextBox1_LostFocus()
10.03.2005 21:04:38
bastian
Hallo und vielen Dank,
das löst das Problem. Ich habe aber gleich noch eines, wie kann ich dafür sorgen das der Cursor/Fokus dann wieder in das gleiche Textfeld springt ? Ich mache es wie folgt, aber der Cursor springt immer in das in der TabFolge nächste Texfeld. Hat jemand eine Idee ?

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Textbox1_Entry = Textbox1.Value
If (Textbox1_Entry = "xyz") Or (Textbox1_Entry = "dsd") Then
Else
MsgBox "Der eingebene Code ist nicht zulässig !"
Textbox1.SetFocus
End If
End Sub

Gruss & Dank,
Bastian
Anzeige
AW: TextBox1_Exit oder TextBox1_LostFocus()
10.03.2005 21:27:04
Ramses
Hallo
probier mal

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If (Textbox1_Entry = "xyz") Or (Textbox1_Entry = "dsd") Then
Textbox1_Entry = Textbox1.Value
Else
MsgBox "Der eingebene Code ist nicht zulässig !"
Cancel = True
End If
End Sub

Gruss Rainer
Anzeige
AW: TextBox1_Exit oder TextBox1_LostFocus()
10.03.2005 23:21:34
bastian
Super, DANKE !
Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
Zeichen ausblenden
14.05.2026 09:50:42
Makro für MacOs
13.05.2026 19:14:18
Gleichheitszeichen
13.05.2026 14:24:56
VBA Projekt Passwort automatisch eingeben
13.05.2026 08:49:41
Reale Berechnung ohne Nachkommawerte
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum