Registriert seit: 20.09.2022
Version(en): 2013
Moin zusammen,
ich habe hier ein Quellcode der soweit funktioniert.
Ich möchte gerne wenn dieser positiv Beendet wird das eine Meldung ausgegeben das die Eingabe OK ist.
Meine versuche scheitern leider.
Gruß Jürgen.
Private Sub cmb_Pruefung_Click()
Dim steuerelement As Control
For Each steuerelement In Me.Controls
If TypeName(steuerelement) = "TextBox" Then
If steuerelement.Text = "" Then
MsgBox "Das Feld: """ & steuerelement.Tag & """ dart nicht leer bleiben.", vbExclamation, "Hinweis!"
steuerelement.SetFocus
Exit Sub
End If
End If
Next
If Not InStr(Me.txt_E_Mail_Adresse, "@") > 0 Then
MsgBox "Fehlerhafte Eingabe im Feld """ & Me.txt_E_Mail_Adresse.Tag & """ Es fehtl ein @-Zeichen.", vbExclamation, "Hinweis"
End If
If Not InStr(Me.txt_Webadresse, ".") > 0 Then
MsgBox "Fehlerhafte Eingabe im Feld """ & Me.txt_Webadresse.Tag & """ Es fehtl ein Punkt.", vbExclamation, "Hinweis"
End If
End Sub
Registriert seit: 16.08.2017
Version(en): 2007 / 2010 / Web
Hi
auf die Schnelle evtl. einfach so.
Code:
Private Sub cmb_Pruefung_Click()
Dim steuerelement As Control
For Each steuerelement In Me.Controls
If TypeName(steuerelement) = "TextBox" Then
If steuerelement.Text = "" Then
MsgBox "Das Feld: """ & steuerelement.Tag & """ dart nicht leer bleiben.", vbExclamation, "Hinweis!"
steuerelement.SetFocus
Exit Sub
End If
End If
Next
If Not InStr(Me.txt_E_Mail_Adresse, "@") > 0 Then
MsgBox "Fehlerhafte Eingabe im Feld """ & Me.txt_E_Mail_Adresse.Tag & """ Es fehtl ein @-Zeichen.", vbExclamation, "Hinweis"
Exit Sub
End If
If Not InStr(Me.txt_Webadresse, ".") > 0 Then
MsgBox "Fehlerhafte Eingabe im Feld """ & Me.txt_Webadresse.Tag & """ Es fehtl ein Punkt.", vbExclamation, "Hinweis"
Exit Sub
End If
msgbox "Alles Ok."
End Sub
Gruß Elex
Registriert seit: 02.05.2018
Version(en): Excel 365 & 2016
Hallo Jürgen,
die Lösung hast du ja von Elex schon bekommen.
Ich stelle nur die Frage, ob so eine "Erfolgsmeldung" nicht eher nervig ist. Wenn alles korrekt ausgeführt ist, werden doch bei sämtlichen Eingabeformularen die du von allen Programmen oder Webseiten kennst auch einfach nur die nächsten Schritte angezeigt. Ich stelle es mir für die Anwender unangenehm vor, jedes Mal eine zusätzliche Meldung bestätigen zu müssen. Das Motto lautet in meinen Augen "Keine Fehlermeldung ist Erfolgsmeldung genug".
Es grüßt die Antwort auf die Frage, die nie gestellt wurde.
Schöne Grüße
Berni
Registriert seit: 10.04.2014
Version(en): 97-2019 (32) + 365 (64)
Hallöchen,
nur weil beim EMail ein @ und bei der Webadresse ein . enthalten ist, muss das nicht ok sein
. \\\|/// Hoffe, geholfen zu haben.
( ô ô ) Grüße, André aus G in T
ooO-(_)-Ooo (Excel 97-2019+365)
Registriert seit: 02.05.2018
Version(en): Excel 365 & 2016
Wie meinen?
Schöne Grüße
Berni
Registriert seit: 10.04.2014
Version(en): 97-2019 (32) + 365 (64)
Hallöchen,
In der Aufgabenstellung wird lediglich gefragt, zu prüfen, ob ein @ enthalten ist. Es wird sicher nicht gelingen, eine EMail an @ zu senden.
In der Aufgabenstellung wird lediglich gefragt, zu prüfen, ob ein . enthalten ist. Es wird sicher nicht gelingen, eine Webseite nur mit . zu öffnen.
Da wäre die Aufgabenstellung resp. die Aussage / Bewertung "OK" mit einer abschließenden Msgbox nur nach diesen beiden Gesichtspunkten für mich eher nicht ganz zielführend.
. \\\|/// Hoffe, geholfen zu haben.
( ô ô ) Grüße, André aus G in T
ooO-(_)-Ooo (Excel 97-2019+365)
Registriert seit: 02.05.2018
Version(en): Excel 365 & 2016
Hmmm... Grundsatzdiskussion
Ich gehe davon aus, dass User standardmäßig Dinge richtig eintragen (wollen) - Tippfehler natürlich außen vor.
Will einer manipulieren, schafft er das, Abfrage nach @ oder . hin oder her. a@b.de ist auch eine gültige Emailadresse.
Das alles ist aber direkt im Feld zu prüfen und für mich auch absolut nachvollziehbar.
Mir ging es aber um diese abschließende Meldung "passt eh alles". Die halte ich für maximal entbehrlich.
Schöne Grüße
Berni