Thema Datum  Von Nutzer Rating
Antwort
13.11.2017 14:53:17 Patricia
NotSolved
Blau Verschachtelte For each Funktion für Prüfung der Textboxen
 13.11.2017 15:28:58 SJ
NotSolved

Ansicht des Beitrags:
Von:
SJ		 Datum:
13.11.2017 15:28:58		 Views:
513		 Rating:
     
Antwort:
  Ja
Thema:
Verschachtelte For each Funktion für Prüfung der Textboxen

Hallo,

etwas umfangreicher, jedoch erweiterbar:

Option Explicit

Private Sub CommandButton1_Click()
    Dim i As Integer
    i = areTextboxesFilled
    
    If i Then
        MsgBox i * -1 & "/3 Textboxen sind leer.", vbExclamation
        Exit Sub
    End If
    
    i = checkInput
    
    If i Then
        MsgBox i * -1 & "/2 Werte in Textboxen sind falsch.", vbExclamation
        Exit Sub
    End If
    
    MsgBox "Alles in Ordnung.", vbInformation
End Sub

Private Function areTextboxesFilled() As Integer
    Dim txt As Control
    For Each txt In Me.Controls
        If VBA.TypeName(txt) = "TextBox" Then
            areTextboxesFilled = areTextboxesFilled + CInt(txt.Value = vbNullString)
        End If
    Next txt
End Function

Private Function checkInput() As Integer
    Dim txt As Control
    For Each txt In Me.Controls
        If VBA.TypeName(txt) = "TextBox" Then
            Select Case txt.Name
                Case "mail":
                    checkInput = checkInput + CInt(InStr(1, txt.Text, "@", vbBinaryCompare) = 0)
                Case "web":
                    checkInput = checkInput + CInt(InStr(1, txt.Text, ".", vbBinaryCompare) = 0)
            End Select
        End If
    Next txt
End Function

Viele Grüße

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
13.11.2017 14:53:17 Patricia
NotSolved
Blau Verschachtelte For each Funktion für Prüfung der Textboxen
 13.11.2017 15:28:58 SJ
NotSolved