HAllo! Hatte ich eben auch mal kurz aber der Code sollte so passen. Habe mal den A = 11 auch nach unten gezogen, so dass die Schleife über alle Zeilen geht und je Zeile den Wert A nach den verschiedenen Bedingungen überprüft. Falls nochmal der Fehler kommt, bitte mal auf Debuggen gehen und melden, welcher Teil dann markiert ist. VG
Dim z As Long
Dim letzte As Long
letzte = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
E = ActiveSheet.Cells(letzte, 15).Value 'Spalte O
For z = letzte To z = letzte - 2
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
Next z
|