Dim Tabelle As New TableDef
Dim Feld As New Field
Dim I As Integer
 
<font color=green>' Felder anlegen</font>
Tabelle.Name = MonthName(Now)
For I = 1 To 31
  If Month(DateSerial(Year(Now), Month(Now), I) <> Month(Now) Then Exit For
  Feld.Name = Format$(I, "00")
  Feld.Type = dbText
  Feld.Size = 10
  Tabelle.Fields.Append Feld
  Set Feld = Nothing
Next I
 
<font color=green>' Wochentage eintragen</font>
Dim Rs As Recordset
Set Rs = Db.OpenRecordset(MonthName(Now))
For I = 1 To 31
  If Month(DateSerial(Year(Now), Month(Now), I) <> Month(Now) Then Exit For
  Rs.AddNew
  Rs(I - 1) = WeekDayName(DateSerial(Year(Now), Month(Now), I))
  Rs.Update
Next I
Rs.Close