Private Sub CB_OK_Click()
If TextBox1.Text = Sheets("Eingabe").Range("L4") And TextBox2.Text = Sheets("Eingabe").Range(" _
_
L4") And TextBox3.Text = Sheets("Eingabe").Range("L4") And TextBox4.Text = Sheets("Eingabe"). _
Range("L4") And TextBox5.Text = Sheets("Eingabe").Range("L4") And TextBox6.Text
= Sheets("Eingabe").Range("L4") And TextBox7.Text = Sheets("Eingabe").Range("L4") And TextBox8. _
Text = Sheets("Eingabe").Range("L4") Then
Workbooks("Beispielablauf.xlsm").Worksheets("EINGABE").Range("N4"). _
Value = TextBox1
Workbooks("Beispielablauf.xlsm").Worksheets("EINGABE").Range("N5"). _
Value = TextBox2
Workbooks("Beispielablauf.xlsm").Worksheets("EINGABE").Range("N6"). _
Value = TextBox3
Workbooks("Beispielablauf.xlsm").Worksheets("EINGABE").Range("N7"). _
Value = TextBox4
Workbooks("Beispielablauf.xlsm").Worksheets("EINGABE").Range("N8"). _
Value = TextBox5
Workbooks("Beispielablauf.xlsm").Worksheets("EINGABE").Range("N9"). _
Value = TextBox6
Workbooks("Beispielablauf.xlsm").Worksheets("EINGABE").Range("N10"). _
Value = TextBox7
Workbooks("Beispielablauf.xlsm").Worksheets("EINGABE").Range("N11"). _
Value = TextBox8
End
Else
ScannerAbfrage.Show vbModeless
MsgBox "Falsche Gegenstände!"
Unload Me
ScannerAbfrage.Show vbModeless
'Start in der If-Schleife also Eingabeüberprüfung => wenn ok dann end
End If
End Sub
Also soweit läuft alles Top, allerdings bekomme ich natürlich nur die Meldung das Falsche Gegenstände vorhanden sind ich fände es allerdings prima wenn mir die Meldung ausgibt welche der Textboxen betroffen sind. Also ungleich des Inhaltes der Zelle L4. (z.B. Textbox1 und Textbox2 sind falsch - Der Rest OK!)
Ist das möglich? Ich hätte gedacht wenn ich mehrere If funktionen hintereinander setze, allerdings klappt das irgendwie nicht so. :(
Vielen dank schonmal!:)