Hi,
ich habe mehrere If Abfragen hintereinander die alle ungefähr so aussehen.
Code:
If Len(O2PN.Text & O2Dyx.Text & O2Qty.Text) "Größer als" 0 Then
If O2PN.Text = "" Then Flag10 = 1
If O2Dyx.Text = "" Then Flag10 = Flag10 + 2
If O2Qty.Text = "" Then Flag10 = Flag10 + 4
Select Case Flag10
Case 1: MsgBox "Option2 PN muß ausgefüllt sein"
Case 2: MsgBox "Option2 Dyx muß ausgefüllt sein"
Case 3: MsgBox "Option2 PN und Dyx müssen ausgefüllt sein"
Case 4: MsgBox "Option2 Qty muß ausgefüllt sein"
Case 5: MsgBox "Option2 PN und Qty müssen ausgefüllt sein"
Case 6: MsgBox "Option2 Dyx und Qty müssen ausgefüllt sein"
Case Else
'Flag10 kann nie 7 sein
End Select
End If
Code Ende
Musste Größer als schreiben weil das Forum kein größer kleiner Zeichen annimmt.
Nach den ganzen Ifs kommen dann noch Abfragen auf den Zustand der Flags.
Code:
If Flag1 = 0 Or 63 Then Decision = Decision + 1
If Flag2 = 0 Or 7 Then Decision = Decision + 1
If Flag3 = 0 Or 7 Then Decision = Decision + 1
If Flag4 = 0 Or 7 Then Decision = Decision + 1
If Flag5 = 0 Or 7 Then Decision = Decision + 1
If Flag6 = 0 Or 15 Then Decision = Decision + 1
If Flag7 = 0 Or 15 Then Decision = Decision + 1
If Flag8 = 0 Or 15 Then Decision = Decision + 1
If Flag9 = 0 Or 7 Then Decision = Decision + 1
If Flag10 = 0 Or 7 Then Decision = Decision + 1
If Decision = 10 Then Call FillSenslist
Code Ende
Nur leider funktioniert das nicht richtig.Wenn irgendein Flag Decision +1 rechnet wird das darauf folgende Macro ausgeführt.Es soll aber erst ausgeführt werden wenn Decision = 10 ist.Die Sternchen einfach wegdenken.Habe sie nur hingeschrieben weil ich den Code nicht anders posten konnte.
Ne Idee?
Danke schon mal im Vorraus.
Psus82