Hallo Leute!
Ich bräuchte dringend eure Hilfe! Ich beschäftige mich seit kurzer Zeit mit VBA Programmierung und würde gerne für die Arbeit etwas programmieren bzw ich bin schon dabei... Leider klappt es nicht wie geplannt. Ich arbeite normalerweise mit Google und lese mir jeweils zu den Themen was durch. Hierbei hat es mir leider nicht geholfen. Ich habe bereits einige Stunden dran gearbeitet und es klappt immer noch nicht.
Vllt kann mir jemand dabei helfen...
Hier die ungelöste Aufgabe:
In der Firma gibt es Türme. Diese sind Anlagen, die bestimmte Betriebszustände haben.
Ich versuche das so zu programmieren, dass z.B. der Betriebszustand "Produktion" bei ComboBox nicht gewählt werden kann, wenn vorher kein Betriebszustand "Turm anfahren" ausgewählt wurde usw...
Die Betriebszustände haben je eine bestimmte Nummer, daher geht es im Code nur um diese Nummern.
Hier ein Ausschnitt:
'Überprüfen, welcher Betriebszustand als letztes angegeben wurde
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
If A = 11 Then
For z = letzte To z = letzte - 2
If e <> "35" Or e <> "14" Or e <> "2*" Then
MsgBox "Bitte den Turm anfahren!", vbOKOnly + vbCritical, "Meldung"
txtLOT = ""
txtSAP = ""
Exit Sub
End If
ElseIf A = 12 Then
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
ElseIf A = 13 Then
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
ElseIf A = 15 Then
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
ElseIf A = 31 Then
If e <> "36" Or e <> "14" Or e <> "2*" Then
MsgBox "Bitte den Turm ausfahren!", vbOKOnly + vbCritical, "Meldung"
Exit Sub
End If
ElseIf A = 32 Then
If e <> "36" Or e <> "14" Or e <> "2*" Then
MsgBox "Bitte den Turm ausfahren!", vbOKOnly + vbCritical, "Meldung"
Exit Sub
End If
ElseIf A = 33 Then
If e <> "36" Or e <> "14" Or e <> "2*" Then
MsgBox "Bitte den Turm ausfahren!", vbOKOnly + vbCritical, "Meldung"
Exit Sub
End If
ElseIf A = 34 Then
If e <> "36" Or e <> "14" Or e <> "2*" Then
MsgBox "Bitte den Turm ausfahren!", vbOKOnly + vbCritical, "Meldung"
Exit Sub
End If
ElseIf A = 35 Then
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
ElseIf A = 36 Then
If e <> "11" Or e <> "14" Or e <> "2*" Then
MsgBox "Bitte den letzten Betriebszustand überprüfen!", vbOKOnly + vbCritical, "Meldung"
Exit Sub
End If
ElseIf A = 41 Then
If e <> "33" Then
MsgBox "Bitte auf CIP Komplett umbauen!", vbOKOnly + vbCritical, "Meldung"
Exit Sub
End If
ElseIf A = 42 Then
If e <> "34" Then
MsgBox "Bitte auf CIP Komplett mit Filterkammer umbauen!", vbOKOnly + vbCritical, "Meldung"
Exit Sub
End If
ElseIf A = 43 Then
If e <> "32" Then
MsgBox "Bitte auf CIP Leitung umbauen!", vbOKOnly + vbCritical, "Meldung"
Exit Sub
End If
ElseIf A = 44 Then
If e <> "32" Then
MsgBox "Bitte auf CIP Leitung umbauen!", vbOKOnly + vbCritical, "Meldung"
Exit Sub
End If
Next z
End If
Es zeigt mir die Meldung: Else ohne If bei A=12 (A ist der Betriebszustand)
Ich hoffe ihr versteht, was ich hier machen will.
Danke für eure Hilfe!
VG
|