Excel Leerer Bereich, wenn der Tag auf Wochenende/Feiertag fällt

Question

Ich versuche ein Makro zu erstellen, das den Zellbereich unterhalb des Datums leert, wenn es sich um einen Sonntag oder Feiertag handelt, basierend auf der Liste der Daten, die ich habe. Irgendeine Idee, wie man das am besten macht?

E.G. K33: Z33 sind Daten. Wenn K33 ein Sonntag ist, K34: K100 = 0 anstelle eines Wertes, der von einem anderen Makro eingegeben wurde.

Answer 1

konnte man Weekday() Funktion und schreiben einen solchen "Helfer" Sub:

Sub FillRange(val As Variant) 
    Dim cell As Range 
    Dim valToFillWith As Variant 

    For Each cell In Range("K33:Z33") 
     If Weekday(cell.Value, vbSunday) = 1 Then 
      valToFillWith = 0 
     Else 
      valToFillWith = val 
     End If 
     cell.Offset(1).Resize(67).Value = valToFillWith 
    Next 
End Sub 

in Ihrem "Main" sub genutzt werden, wie folgt:

Sub Main() 

    '... 
    ' your "macro" code before filling the range 
    '... 

    FillRange "myMacroValue" 

    ' your "macro" code fater filling the range 
    '... 

End Sub