bin am verzweifeln und suche folgende WorksheetFunctionen
WENN(F4=1;MONAT(B4);"")
.Cells(4,4) = Application.WorksheetFunction.If(Range("F4"))= 1, month(Range("B4")),"")
WENN(G4="x";WOCHENTAG(B4;2);"ohne")
.Cells(4, 5) = Application.WorksheetFunction.CountIf(Range("G4") = "x", Weekday(Range("B4")), "ohne")
WENN(G4="x";WENN(UND(E46;E47);1;0);"")
.Cells(4,6) = Application.WorksheetFunction.If(Range("G4") = "x", If (Range("E4" 6)), Range("E4" 7),1,0),"")
NETTOARBEITSTAGE(DATUM(C$1;AD2;1);MONATSENDE(DATUM(C$1;AD2;1);0))
Cells(2,32)= Application.worksheetfunction.NetworkDays(DATE(Range("C1"),Range("AE2"),1))),EOMONTH(DATE(Range("C1"),Range("AE2",1),0))
Danke für Eure Hilfe
Gruß
Ludmila