ich möchte gern herausfinden, ob in den Zellen von M1 bis AE1 ein Sonntag enthalten ist.
Kennt jemand dafür eine Formel oder ein Makro?
Vielen Dank im Voraus!
MFG André
K | |
2 | WAHR |
3 | 2 |
Formeln der Tabelle | ||||||
|
Option Explicit
Sub Test1()
With Range("K4")
.Formula = "=SUMPRODUCT(1*(MOD(M1:AE1,7)=1))"
.Formula = .Value
End With
End Sub
Sub Test2()
Dim arrQ, ii As Long, lngErg As Long
arrQ = Range("M1:AE1")
For ii = 1 To UBound(arrQ, 2)
lngErg = lngErg - (arrQ(1, ii) Mod 7 = 1)
' oder
' If arrQ(1, ii) Mod 7 = 1 Then lngErg = lngErg + 1
Next ii
Range("K5") = lngErg
' oder
Cells(5, 11) = lngErg
End Sub
Sub Test3()
Range("K6").Value = Evaluate("=SumProduct(1*(Mod(M1:AE1,7)=1))")
End Sub
Rückmeldung wäre nett! - Grüße aus Kamp-Lintfort von Erich