If not mit or funzt nicht

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi
Bei NICHT in der Logik ist das menschliche Gehirn schnell über fordert.
Wir denken lieber Positiv.

Probiere mal so, das Not weglassen und dann die Messagbox in den Else-Teil schieben

If Worksheets("" & mL).Cells(X, 35).Value = 0 Or Worksheets("" & mL).Cells(X, 35).Value = 1 Then
Else
    MsgBox "Fehler...."
End If

Einfacher natürlich mit Select Gase

Select Case Worksheets("" & mL).Cells(X, 35).Value
    Case 0, 1
    Case Else
       Msgbox "Fehler ..."
End Select

Wenn du bei deiner Logik mit Not bleiben willst:

If Not (Worksheets("" & mL).Cells(X, 35).Value = 0 Or Worksheets("" & mL).Cells(X, 35).Value = 1) Then
MsgBox "Fehler...."

End If

Oder mit >

If Worksheets("" & mL).Cells(X, 35).Value > 0 And Worksheets("" & mL).Cells(X, 35).Value > 1 Then
MsgBox "Fehler...."

End If

Hallo Ray,

mit einigem Erstaunen lese ich, dass der Code bei Dir anders reagiert, als bei mir. Ich habe den nämlich nicht einfach nur hier ins Forum geschrieben, ich habe ihn vorher auch getestet. Es kann also nur sein, dass Du es mit einer anderen als Zelle A1 getestet hast, während in dieser weder eine 0 noch eine 1 stand oder dass es noch andere Rahmenbedingungen gibt, die ich nicht kannte oder nicht berücksichtigt habe. Ich hatte aber einleitend geschrieben, was ich als Anforderung Deinerseits verstanden habe und das Gleiche lese ich auch in Deiner Antwort auf Gerds Beitrag.

Hier ist die Erklärung. warum ich weiß, dass mein Code funktioniert.

Der Kernausdruck lautet:

Not 0 And Not 1

Im Code wird er verwendet, um sicherzustellen, dass der Körper für die If Anweisung nur ausgeführt wird, wenn das Ergebnis der Prüfung des logischen Ausdruckes True ergibt. Wie bekannt, ergibt And nur True, wenn alle miteinander verknüpften Variablen gleich sind. Deshalb brauchen wir noch die beiden Not vor den Variablen, die ihr Ergebnis jeweils umkehren, um alle Fälle abzudecken, die weder 0 noch 1 sind.

Wahrheitstabelle And:

Wahrheitstabelle Not:


a x
0 1
1 0

Wir rechnen das kurz durch.

In Zelle A1 steht 0: Not 0 ergibt dann False (0 = 0 = True, Not True = False), Not 1 ergibt True (0 = 1 = False, Not False = True)
Das entspricht in der Wahrheitstabelle von And Zeile 2, mit a = 0, b = 1. Als Ergbnis der And-Verknüpfung erhalten wir x = 0. Also genau was wir wollen, der If-Körper wird übersprungen.

In Zelle A1 steht 1: Not 0 ergibt dann True, Not 1 ergibt False
Das entspricht in der Wahrheitstabelle von And Zeile 3, mit a = 1, b = 0. Als Ergbnis der And-Verknüpfung erhalten wir x = 0. Also wieder genau was wir wollen, der If-Körper wird übersprungen.

In Zelle A1 steht z.B. 2: Not 0 ergibt dann True, Not 1 ergibt True
Das entspricht in der Wahrheitstabelle von And Zeile 4, mit a = 1, b = 1. Als Ergbnis der And-Verknüpfung erhalten wir x = 1. Also genau was wir wollen, der If-Körper wird ausgeführt. Da dies für die 2 funktioniert und nur gegen 0 und 1 geprüft wird, ergeben alle anderen Werte ungleich 0 oder 1 ebenfalls True für den And-Ausdruck.

Anschließend kommt noch der Or-Ausdruck hinzu, um zusätzlich sicherzustellen, dass die Zelle nicht leer ist. Das muss sein, weil eine leere Zelle als 0 interpretiert wird und folgllich der If-Körper nicht ausgeführt würde, weil der And-Audruck für eine leere Zelle True ergibt.

Eine Klammerung von Teilausdrücken ist nicht notwendig, weil Not Priorität vor And und And Priorität vor Or beim Berechnen hat. Das ist analog zu Punkt- vor Strichrechnung zu verstehen.

Hier ist die Erklärung. warum es mit Or nicht funktionieren kann. (Gerd hat das bereits angemerkt.)
Der Kernausdruck mit Or lautet:

Not 0 Or Not 1

Wahrheitstabelle Or:

Eigentlich sieht man es schon an der Wahrheitstabelle, denn die Zeilen 2, 3 und 4 darin ergeben jeweils True, womit völlig egal ist, was in der geprüften Zelle steht, der If-Körper wird in jedem Fall ausgeführt.

Wir rechnen das trotzdem kurz durch.

In Zelle A1 steht 0: Not 0 ergibt dann False, Not 1 ergibt True
Das entspricht in der Wahrheitstabelle von Or Zeile 2, mit a = 0, b = 1. Als Ergbnis der Or-Verknüpfung erhalten wir x = 1. Also genau was wir nicht wollen, der If-Körper wird ausgeführt.

In Zelle A1 steht 1: Not 0 ergibt dann True, Not 1 ergibt False
Das entspricht in der Wahrheitstabelle von Or Zeile 3, mit a = 1, b = 0. Als Ergbnis der Or-Verknüpfung erhalten wir x = 1. Also wieder genau was wir nicht wollen, der If-Körper wird ausgeführt.

In Zelle A1 steht z.B. 2: Not 0 ergibt dann True, Not 1 ergibt True
Das entspricht in der Wahrheitstabelle von Or Zeile 4, mit a = 1, b = 1. Als Ergbnis der Or-Verknüpfung erhalten wir x = 1. Also genau was wir wollen, der If-Körper ausgeführt. Da dies für die 2 funktioniert und nur gegen 0 und 1 geprüft wird, ergeben alle anderen Werte ungleich 0 oder 1 ebenfalls True für den Or-Ausdruck.

Das ist angewendete boolesche Algebra, der wir überall da in der Programmierung begenen, wo wir es mit logischen Ausrücken z.B. für If-Anweisungen oder Abbruchbedingungen für Schleifen zu tun haben.
https://de.wikipedia.org/wiki/Boolesche_Algebra
https://www.youtube.com/watch?v=pppTemykV5I
(Der Mann erklärt das Thema anhand von Logikgattern. Das ist aber das Gleiche, sogar noch besser veranschaulicht. Es geht dann aber auch schnell in die Mathematik, bzw. werden die Rechenregeln zur Anwendung und Vereinfachung von logischen Ausdrücken gezeigt. Ab 9:25 geht es dann wieder in die Veranschaulichung mit Gattern. Ich habe das Video nicht ganz angesehen, aber für die Grundlagen ist es gut brauchbar.)

Viele Grüße,

Zwenn

Sub Unit() MsgBox ActiveCell.Address(external:=True) If Not IsEmpty(ActiveCell) And (ActiveCell.Value = 0 Or ActiveCell.Value = 1) Then MsgBox "OK" Else MsgBox "Fehler" End If End Sub

Beliebteste Forumthreads (12 Monate)

23
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

47 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

If not mit or funzt nicht

23 Beiträge zum Forumthread Beiträge zu diesem Forumthread

47 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

23
Beiträge zum Forumthread

Beiträge zu diesem Forumthread