VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
END
Attribute VB_Name = "Tabelle1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Sub ErsterSamstag()
   Dim Jahr As Integer, i As Integer, WoTag As Integer
   
   Jahr = Year(Now())
   For i = 1 To 12
      WoTag = Weekday(DateSerial(Jahr, i, 1))
      Cells(i, 1).Value = DateSerial(Jahr, i, 1 + 7 - WoTag)
   Next i
End Sub


