Office: If mit 2 Bedingungen in einer Zelle

Hallo,
ich versuche gerade herauszufinden wie ich über einen VBA-Code zwei bedingungen in einer Zelle abfragen kann.

dim frm as long
for frm = 1 to 10
if not cells(frm, 2) = "Sonntag" and not "Feiertag" _
then cells(frm, 3) = range("B12").FormulaR1C1


Leider klappt das nicht bekomme den Fehler:Typen unverträglich.
Geht das überhaupt?
Was mache ich falsch?

:)

 

Moin
if not cells(frm, 2) = "Sonntag" and not cells(frm, 2) = "Feiertag" _
editder so
if cells(frm, 2) "Sonntag" and cells(frm, 2) "Feiertag" _
gruss hary

 

Hallo,

Code:

Folgende Schreibweise geht auch und ist vielleicht nicht ganz so "sperrig" wie das Konstrukt mit "Not":
Code:

Grüße
EarlFred

 

Hallo

ungetestet
Code:

MfG Tom

 

... und falls in Spalte_B ein "echtes" Datum steht und die Formatierung den Wochentag darstellt:
Code: