Hilfe bei Excel

[ibp]

hallo privateer3000, dir kann geholfen werden...

folgenden code setzt du einfach in deine arbeitsmappe....

Code:

Private Sub Workbook_Open()
  Dim x, y, tag, jahr, monat As Integer
  Dim datum As Date
  
  Worksheets("Tabelle1").Activate ' Arbeitsblatt wählen
 
  ' bereich
  x = 3 ' spalte
  y = 5 ' zeile
  
  tag = 1 ' erster tag
  monat = Month(Now) ' monat
  jahr = Year(Now) ' jahr
  datum = DateSerial(jahr, monat, tag) ' 1.tag
  
  Do While Month(datum) = Month(Now) ' solange monate gleich sind
    Select Case Weekday(datum) ' ist wochentag ...
      Case 4, 5, 6, 7  '= mi..so
        Cells(y, x) = Format(datum, "dddd, dd.mm.yyyy") ' Datum einfügen
        y = y + 1 ' neue Zeile
    End Select
    tag = tag + 1
    datum = DateSerial(jahr, monat, tag) ' tag x
  Loop
End Sub

gruß rené