Thema Datum  Von Nutzer Rating
Antwort
27.05.2022 17:27:36 raven
NotSolved
27.05.2022 17:51:26 Gast41027
NotSolved
Rot Hallo zusammen, Ich habe im Excel ein Userform mit Name,Webadresse und Email adresse. Nun
27.05.2022 19:51:18 ralf_b
NotSolved

Ansicht des Beitrags:
Von:
ralf_b		 Datum:
27.05.2022 19:51:18		 Views:
418		 Rating:
     
Antwort:
  Ja
Thema:
Hallo zusammen, Ich habe im Excel ein Userform mit Name,Webadresse und Email adresse. Nun 
Private Sub cmb_Pruefung_Click()
    Dim st_ele As Control
    For Each st_ele In Controls
        If TypeName(st_ele) = "TextBox" Then
            If st_ele.Text = "" Then
                MsgBox "Das Feld: " & st_ele.Tag & " darf nicht leer sein", vbInformation, "Hinweis"
                st_ele.SetFocus
                Exit Sub
            End If
            
           Select Case .Name
            Case "txt_Webadresse"
                  If InStr(1, st_ele.Text, ".", vbTextCompare) = 0 Then
                    MsgBox "Fehlerhafte eingabe im Feld: " & st_ele.Tag & vbCrLf & "Es fehlt ein Punkt in der Webadresse.", vbExclamation, "Hinweis"
                    st_ele.SetFocus
                    Exit Sub
                 End If
            Case "txt_Email"
                If InStr(1, st_ele.Text, "@", vbTextCompare) = 0 Then
                    MsgBox "Fehlerhafte eingabe im Feld: " & st_ele.Tag & vbCrLf & "Es fehlt ein @ Zeichen.", vbExclamation, "Hinweis"
                    st_ele.SetFocus
                    Exit Sub
                End If
         End Select
        End If
    Next
End Sub

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
27.05.2022 17:27:36 raven
NotSolved
27.05.2022 17:51:26 Gast41027
NotSolved
Rot Hallo zusammen, Ich habe im Excel ein Userform mit Name,Webadresse und Email adresse. Nun
27.05.2022 19:51:18 ralf_b
NotSolved