Office: entweder-oder anweisung bei zwei ComboBoxen als Pflichtfeld

große Baustelle:
hab ein UserForm, mit vielen ComboBoxen, die alle als Pflichtfelder definiert sind.
nun soll bei zwei dieser ComboBoxen eine entweder-oder Anweisung stattfinden, aber die Auswahl soll trotzdem Pflicht bleiben. also, ein Feld muss gefüllt werden.
hat jemand eine Idee wie man das realisieren könnte?

 

Hi,

als verschachtelte Abfrage:

Code:

If ComboBox1.Value = "" Then
    If ComboBox2.Value = "" Then
        MsgBox "Eingabefehler!"
        Exit Sub
    End If
End If

So sollte es gehen...Das kannst du in jedes "Change-Ereignis" der Combobox hinterlegen.

 

hi,
ich hab das ganze nun allerdings in einem Click-Ereigniss.
Geht das darin nicht?

Code:

Private Sub recorddata_Click()
Dim Zeile
                  If [ComboBox1] <> "" And [ComboBox4] <> "" And [ComboBox5] <> "" And [ComboBox6] <> "" And [ComboBox7] <> "" And [ComboBox8] <> "" And [TextBox4] <> "" And [TextBox5] <> "" And [TextBox8] <> "" And [TextBox11] <> "" And [TextBox12] <> "" And [TextBox13] <> "" And [TextBox14] <> "" And [TextBox15] <> "" And [TextBox17] <> "" And [TextBox18] <> "" And [TextBox19] <> "" And [TextBox20] <> "" And [TextBox21] <> "" And [TextBox22] <> "" And [ComboBox9] <> "" And [ComboBox10] <> "" And [ComboBox2] <> "" Then
                  If [ComboBox1] <> "" And [ComboBox4] <> "" And [ComboBox5] <> "" And [ComboBox6] <> "" And [ComboBox7] <> "" And [ComboBox8] <> "" And [TextBox4] <> "" And [TextBox5] <> "" And [TextBox8] <> "" And [TextBox11] <> "" And [TextBox12] <> "" And [TextBox13] <> "" And [TextBox14] <> "" And [TextBox15] <> "" And [TextBox17] <> "" And [TextBox18] <> "" And [TextBox19] <> "" And [TextBox20] <> "" And [TextBox21] <> "" And [TextBox22] <> "" And [ComboBox9] <> "" And [ComboBox10] <> "" And [ComboBox3] <> "" Then
           Worksheets("Quotation").Unprotect
         Zeile = Worksheets("Quotation").Cells(Rows.Count, 1).SpecialCells(xlLastCell).Row + 1

                                 With RFQ
                                          ' Daten aus steuerelementen in Tabelle eintragen......
                                 End With
        unload RFQ
          Else
          MsgBox "Please fill all fields marked with * "
       Exit Sub
     End If
   End If
End Sub

wenn ich nun Daten in ComboBox2 (und natürlich alle anderen Felder) auswähle, krieg ich meine MsgBox.
wenn ich Daten in ComboBox 3 auswähle passiert garnix (also: Script geht dann an irgendeiner Stelle nicht weiter)

 

Hi,

so richtig wieß ich bei diesem Code nciht, was Du erreichen willst. Denn bei Dir bricht er ja nur dann ab, wenn wirklich alle Felder nicht ausgefüllt sind. Sollte z.B. nur Textbox5 nciht ausgefüllt sein - alles andere aber schon - dann läuft er einfach so durch.

Soll das so sein? Denn normalerweise will man ja die Pflichtfelder ausgefüllt haben - und zwar alle Pflichtfelder. Wenn nur eins davon leer ist soll er den Code mit einem Hinweis abbrechen.
Das dürfte Dein Code so nicht machen - ist das gewollt?

 

also vorher sah der Code so aus:

Code:

Private Sub recorddata_Click()
Dim Zeile
       If [ComboBox1] <> "" And [ComboBox4] <> "" And [ComboBox5] <> "" And [ComboBox6] <> "" And [ComboBox7] <> "" And [ComboBox8] <> "" And [TextBox4] <> "" And [TextBox5] <> "" And [TextBox8] <> "" And [TextBox11] <> "" And [TextBox12] <> "" And [TextBox13] <> "" And [TextBox14] <> "" And [TextBox15] <> "" And [TextBox17] <> "" And [TextBox18] <> "" And [TextBox19] <> "" And [TextBox20] <> "" And [TextBox21] <> "" And [TextBox22] <> "" And [ComboBox9] <> "" And [ComboBox10] <> "" And [ComboBox2] <> "" And [ComboBox3] <> "" Then
          
           Worksheets("Quotation").Unprotect
         Zeile = Worksheets("Quotation").Cells(Rows.Count, 1).SpecialCells(xlLastCell).Row + 1

         With RFQ
'daten aus Steuerelementen in Tabelle eintragen  
   
       End With
        unload RFQ
          Else
          MsgBox "Please fill all fields marked with * "
      
   End If
End Sub

da hat das auch so funktioniert, wie es sollte. Also wenn eines der Felder nicht gefüllt war, kam die msgbox.
nun wollte ich ja einfach nur erreichen, dass alle Felder und ComboBox2,
oder alle Felder und Combobox3 gefüllt sein müssen.

 

Hi,

sorry - war eben mein Fehler .... wegen der "<>"..

Versuch es doch mal so und bau meinen Code praktisch direkt in Deine Abfrage ein (aus dem 2. posting...) - also nach der If-Abfrage bevor diese Zeile kommt:


Worksheets("Quotation").Unprotect


Also schematisch dann so:

Code:

If DeineFelder <> "" ... Then
   If ComboBox1.Value = "" Then
     If ComboBox2.Value = "" Then
        MsgBox "Deine Fehlermeldung!" ..das 1. Mal
        Exit Sub
     End If
   End If
 ....... hier Dein Code...
Else

..... Deine Abruchmeldung, die da steht das 2. Mal

End If

Dann sollte es doch auch gehen....

Bei so vielen Abfragen "brennen" ja schon die Augen.... :-D und man verliert schnell die Übersicht.

Wäre da nicht vielleicht eine Schleifenbildung druch alle Steuerelemente der Userform sinnvoll? Aber wenns läuft....