Or und And

14/09/2012 - 15:50 von Hermie | Report spam
Hallo!

Wenn ich in eine Nummer mehrere Dinger stopfen will und dann nachher
schauen will, ob etwas in der Nummer enthalten ist, dann mache ich das
"Hineinstopfen" doch über "Or", und das Auslesen über "And", oder?

Also beispielsweise so:

Public Enum eObst
Apfel = 1
Birne = 2
Orange = 4
Kiwi = 8
End Enum

Public Sub Test()

Dim l&
l = Apfel OR Kiwi

Debug.Print "Apfel enthalten: " & CBool(l And Apfel = Apfel)
Debug.Print "Birne enthalten: " & CBool(l And Birne = Birne)
Debug.Print "Orange enthalten: " & CBool(l And Orange = Orange)
Debug.Print "Kiwi enthalten: " & CBool(l And Kiwi = Kiwi)

End Sub

Irgendwas stimmt da bei mir noch nicht...
Bei mir ist jede Abfrage "Wahr", auch Birne und Orange.

Könnte jemand helfen?

Dankeschön!

Hermann
 

Lesen sie die antworten

#1 Wilfried Dietrich
14/09/2012 - 16:07 | Warnen spam
Dim l&
l = Apfel OR Kiwi

Debug.Print "Apfel enthalten: " & CBool(l And Apfel = Apfel)
...



l = l OR Apfel
l = l OR Kiwi

Debug.Print "Apfel enthalten: " & CBool(l And Apfel)


Gruß
Wilfried

Ähnliche fragen