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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen