Hallo! Ich habe immer noch ein kleines Problem mit dem Code. Mir wurde gut weitergeholfen, danke euch! Eins klappt jedoch immer noch nicht :(
Wenn z.B. A=35 ist und E=36, dann klappt es bis zur If Bedingung und schmeist mir trotz allem die MsgBox.
D.h. Case 35, dann If Bed. und MsgBox, obwohl er bei A=35 und E=36 beenden muss und weiter zum nächsten Code springen muss.
Klappt auch gut wenn keine "Or" dahinter steht. Also If E<>"36" Then...
Ich denke, dass es an "Or" liegt, weiß allerdings nicht, wie man das umgehen könnte. Sitz bereits seit 2 Stunden dran :(
Ich hoffe, dass ihr mir weiterhelfen könnt!
Danke euch!!!!
VG
'Überprüfen, welcher Betriebszustand als letztes angegeben wurde
Dim letzte As Long
letzte = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
E = ActiveSheet.Cells(letzte, 15).Value 'Spalte O
Select Case A
Case 11
If E <> "35" Or E <> "14" Or E <> "2*" Then
MsgBox "Bitte den Turm anfahren!", vbOKOnly + vbCritical, "Meldung"
txtLOT = ""
txtSAP = ""
Exit Sub
End If
Case 12, 13
If E <> "36" Or E <> "14" Or E <> "4*" Or E <> "2*" Then
MsgBox "Bitte den Turm ausfahren!", vbOKOnly + vbCritical, "Meldung"
Exit Sub
End If
Case 15
If E <> "36" Or E <> "1*" Or E <> "4*" Or E <> "2*" Then
MsgBox "Bitte den Turm ausfahren!", vbOKOnly + vbCritical, "Meldung"
Exit Sub
End If
Case 31, 32, 33, 34
If E <> "36" Or E <> "14" Or E <> "2*" Then
MsgBox "Bitte den Turm ausfahren!", vbOKOnly + vbCritical, "Meldung"
Exit Sub
End If
Case 35
If E <> "36" Or E <> "14" Or E <> "4*" Or E <> "31" Or E <> "2*" Then
MsgBox "Bitte den letzten Betriebszustand überprüfen!", vbOKOnly + vbCritical, "Meldung"
Exit Sub
End If
Case 36
If E <> "11" Or E <> "14" Or E <> "2*" Then
MsgBox "Bitte den letzten Betriebszustand überprüfen!", vbOKOnly + vbCritical, "Meldung"
Exit Sub
End If
Case 41
If E <> "33" Then
MsgBox "Bitte auf CIP Komplett umbauen!", vbOKOnly + vbCritical, "Meldung"
Exit Sub
End If
Case 42
If E <> "34" Then
MsgBox "Bitte auf CIP Komplett mit Filterkammer umbauen!", vbOKOnly + vbCritical, "Meldung"
Exit Sub
End If
Case 43, 44
If E <> "32" Then
MsgBox "Bitte auf CIP Leitung umbauen!", vbOKOnly + vbCritical, "Meldung"
Exit Sub
End If
Case Else
End Select
|