Dim
letzte
As
Long
letzte = ActiveSheet.Cells(Rows.Count, 1).
End
(xlUp).Row
E = ActiveSheet.Cells(letzte, 15).Value
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