Dim Tabelle As New TableDef
Dim Feld As New Field
Dim I As Integer
 
Dim iYear As Integer
Dim iMonth As Integer
Dim vDate As Variant
 
iYear = Year(Now)
iMonth = Month(Now)
 
<font color=green>' Felder anlegen</font>
Tabelle.Name = MonthName(iMonth)
 
I = 0
Do
  I = I + 1
  vDate = DateSerial(iYear, iMonth, I)
  If Month(vDate) <> iMonth Then
    If Weekday(vDate) = vbMonday Then Exit Do
    Feld.Name = Format$(vDate, "d mmm")
  Else
    Feld.Name = Format$(I, "00")
  End If
  Feld.Type = dbText
  Feld.Size = 10
  Tabelle.Fields.Append Feld
  Set Feld = Nothing
Loop
Db.TableDefs.Append Tabelle
 
<font color=green>' Wochentage eintragen</font>
Dim Rs As Recordset
Set Rs = Db.OpenRecordset(MonthName(iMonth))
Rs.AddNew
For I = 1 To Rs.Fields.Count
  Rs(I - 1) = WeekdayName(Weekday(DateSerial(iYear, iMonth, I)), , vbSunday)
Next I
Rs.Update
Rs.Close