Hallo! Hier nochmal der Code.
'Ü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" And E <> "14" And E <> "2*" Then
MsgBox "Bitte den Turm anfahren!", vbOKOnly + vbCritical, "Meldung"
txtLOT = ""
txtSAP = ""
Exit Sub
End If
Case 12, 13
If E <> "36" And E <> "14" And E <> "4*" And E <> "2*" Then
MsgBox "Bitte den Turm ausfahren!", vbOKOnly + vbCritical, "Meldung"
Exit Sub
End If
Case 15
If E <> "36" And E <> "1*" And E <> "4*" And E <> "2*" Then
MsgBox "Bitte den Turm ausfahren!", vbOKOnly + vbCritical, "Meldung"
Exit Sub
End If
Case 31, 32, 33, 34
If E <> "36" And E <> "14" And E <> "2*" Then
MsgBox "Bitte den Turm ausfahren!", vbOKOnly + vbCritical, "Meldung"
Exit Sub
End If
Case 35
If E <> "36" And E <> "14" And E <> "4*" And E <> "31" And E <> "2*" Then
MsgBox "Bitte den letzten Betriebszustand überprüfen!", vbOKOnly + vbCritical, "Meldung"
Exit Sub
End If
Case 36
If E <> "11" And E <> "14" And 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
VG
|