Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema CheckBox
BildScreenshot zu CheckBox CheckBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema CommandButton
BildScreenshot zu CommandButton CommandButton-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Userform
BildScreenshot zu Userform Userform-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Label
BildScreenshot zu Label Label-Seite mit Beispielarbeitsmappe aufrufen

Userform Text und Combox prüfen


Betrifft: Userform Text und Combox prüfen von: Olga
Geschrieben am: 13.07.2018 06:52:57

Hallo,
ich möchte prüfen lassen ob bestimmte Bedingungen in einer Userform zutreffen.
Ist die ComboBox (Auswahl) nicht leer jedoch die Eingabe1 oder Eingabe2 = leer dann Fehlermeldung.
Ist Eingabe1 oder Eingabe2 nicht leer jedoch die Auswahl leer dann Fehlermeldung.

Ist Auswahl nicht leer dann muß entweder Eingabe1 oder Eingabe2 einen Text enthalten.
Wenn Eingabe1 oder Eingabe2 einen Text enthalten dann muß Auswahl ebenfalls einen Text enthalten.
Danke!
Gruß
Olga

https://www.herber.de/bbs/user/122648.xlsm

  

Betrifft: AW: Userform Text und Combox prüfen von: Hajo_Zi
Geschrieben am: 13.07.2018 07:04:53

Hallo Olga,

Private Sub CommandButton2_Click()
    Dim BoWahr As Boolean
    Dim LoI As Long
    If cboA1 <> "" Then
        BoWahr = False
        For LoI = 1 To 4
            If Controls("txtM" & LoI) <> "" Or Controls("txtP" & LoI) <> "" Then
                BoWahr = True
                Exit For
            End If
        Next LoI
        If BoWahr = False Then
            MsgBox "Fehler2"
        End If
    Else
        MsgBox "Fehler1"
    End If
'
'        For lol = 1 To 4
'            If cboA1.Value = "" And txtM1.Value = "" And txtP1.Value = "" Then
'                GoTo ok
'            ElseIf cboA1.Value <> "" And txtM1.Value = "" Or txtP1.Value = "" Then
'                GoTo Fehler
'            ElseIf cboA1.Value <> "" And txtM1.Value <> "" And txtP1.Value = "" Then
'                GoTo ok
'            ElseIf cboA1.Value <> "" And txtM1.Value = "" And txtP1.Value <> "" Then
'                GoTo ok
'            ElseIf cboA1.Value = "" And txtM1.Value <> "" Or txtP1.Value <> "" Then
'                GoTo Fehler1
'            End If
'        Next
'Fehler:
'MsgBox "Fehler"
'Exit Sub
'Fehler1:
'MsgBox "Fehler1"
'Exit Sub
'
'
'ok:
'MsgBox "Kein Fehler"
End Sub

GrußformelHomepage

Beiträge von Werner, Luc, robert, J.O.Maximo und folgende lese ich nicht.


  

Betrifft: AW: Userform Text und Combox prüfen von: Olga
Geschrieben am: 13.07.2018 07:08:06

Hallo Hajo,
vielen Dank für Deine Hilfe!
Funktioniert genauso wie ich es wollte.
Gruß
Olga


Beiträge aus dem Excel-Forum zum Thema "Userform Text und Combox prüfen"