Gruppe
Funktion
Bereich
WENN
Thema
Tagesliste eines Monats exakt anpassen
Problem
Wie kann ich das Tagesdatum einer Monatstagesliste exakt an die tatsächlichen Tage unter Berücksichtigung der Schaltjahre anpassen?
Lösung
Nur anhand einer Beipspielarbeitsmappe darstellbar.
StandardModule: basMain
Sub MonatAnlegen()
Dim wks As Worksheet
Dim datDay As Date
Dim var As Variant
Dim lDay As Long
Dim iYear As Integer, iMonth As Integer
Application.ScreenUpdating = False
Set wks = ActiveSheet
iYear = Year(Range("A1").Value)
iMonth = Month(Range("A1").Value)
For lDay = DateSerial(iYear, iMonth, 1) To _
DateSerial(iYear, iMonth + 1, 0)
var = Application.Match( _
lDay, Worksheets("Feiertage").Columns(1), 0)
If IsError(var) And WorksheetFunction.WeekDay(lDay) < 6 Then
Worksheets.Add.Move after:=Worksheets(Worksheets.Count)
ActiveSheet.Name = Format(lDay, "dd.mm.yy")
End If
Next lDay
wks.Select
Application.ScreenUpdating = True
End Sub