Jahreskalender auf einem Blatt mit VBA erstellen
06.05.2015 03:37:01
Matthias
Hallo
Ich hab mal was gebastelt (ohne Fehlerbehandlung!)
Option Explicit
Sub Erstelle_Kalender()
'von Matthias L.
Dim Jahr&, x&, Monat&, Tage&
Application.ScreenUpdating = False
Jahr = Year(Now) 'aktuelles Jahr
'Jahr = 2016 'so dann für ein bestimmts Jahr
Worksheets.Add After:=Sheets(Sheets.Count)
ActiveSheet.Name = Jahr
For Monat = 1 To 12
Cells(1, Monat) = Format(DateSerial(1, Monat, 1), "mmmm")
Tage = DateSerial(Jahr, Monat + 1, 1) - DateSerial(Jahr, Monat, 1)
For x = 2 To Tage + 1
Cells(x, Monat) = CDate(Format(DateSerial(Jahr, Monat, x - 1), "DD/MM/YY"))
If Weekday(Cells(x, Monat), vbMonday) > 5 Then Cells(x, Monat).Interior.ColorIndex = 35
Next
Next
With Range("A1:L1")
.Interior.ColorIndex = 6
.HorizontalAlignment = xlCenter
End With
End Sub
Gruß Matthias