Thema Datum  Von Nutzer Rating
Antwort
Rot Betriebszustand überprüfen
24.04.2017 13:25:54 Fokus
NotSolved
24.04.2017 14:27:22 Gast67735
NotSolved
24.04.2017 15:04:23 Fokus
NotSolved
24.04.2017 16:44:04 Gast55034
NotSolved
25.04.2017 10:54:58 Fokus
NotSolved
25.04.2017 11:00:02 Fokus
NotSolved
25.04.2017 19:20:43 Gast94848
NotSolved
04.05.2017 08:46:18 Gast77528
NotSolved
04.05.2017 08:46:40 Fokus
NotSolved
11.05.2017 17:12:46 Fokus
NotSolved
11.05.2017 18:02:02 Gast98626
*****
Solved
11.05.2017 19:29:09 Fokus
NotSolved
15.05.2017 11:36:07 Fokus
NotSolved
15.05.2017 12:42:22 Gast24116
NotSolved
15.05.2017 13:03:07 Fokus
NotSolved
15.05.2017 13:18:17 Fokus
NotSolved
15.05.2017 14:45:28 Gast96727
NotSolved
15.05.2017 14:45:29 Gast94987
Solved
15.05.2017 15:55:11 Fokus
NotSolved

Ansicht des Beitrags:
Von:
Fokus
Datum:
24.04.2017 13:25:54
Views:
947
Rating: Antwort:
  Ja
Thema:
Betriebszustand überprüfen

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

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Betriebszustand überprüfen
24.04.2017 13:25:54 Fokus
NotSolved
24.04.2017 14:27:22 Gast67735
NotSolved
24.04.2017 15:04:23 Fokus
NotSolved
24.04.2017 16:44:04 Gast55034
NotSolved
25.04.2017 10:54:58 Fokus
NotSolved
25.04.2017 11:00:02 Fokus
NotSolved
25.04.2017 19:20:43 Gast94848
NotSolved
04.05.2017 08:46:18 Gast77528
NotSolved
04.05.2017 08:46:40 Fokus
NotSolved
11.05.2017 17:12:46 Fokus
NotSolved
11.05.2017 18:02:02 Gast98626
*****
Solved
11.05.2017 19:29:09 Fokus
NotSolved
15.05.2017 11:36:07 Fokus
NotSolved
15.05.2017 12:42:22 Gast24116
NotSolved
15.05.2017 13:03:07 Fokus
NotSolved
15.05.2017 13:18:17 Fokus
NotSolved
15.05.2017 14:45:28 Gast96727
NotSolved
15.05.2017 14:45:29 Gast94987
Solved
15.05.2017 15:55:11 Fokus
NotSolved