Makro für Jahreskalender anpassen

Bild

Betrifft: Makro für Jahreskalender anpassen
von: Andreas
Geschrieben am: 05.05.2015 23:40:08

Hallo
Das nachstehende Makro habe ich in einem Jahreskalender gefunden. Kann mir jemand helfen, dieses so umzugestalten, dass der Jahreskalender auf einem Tabellenblatt erzeugt wird? Meine VBA-Kenntnisse reichen dafür leider nicht aus.
Danke und Gruss Andreas
https://www.herber.de/bbs/user/97486.txt

Bild

Betrifft: Jahreskalender auf einem Blatt mit VBA erstellen
von: Matthias L
Geschrieben am: 06.05.2015 03:37:01
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

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Makro für Jahreskalender anpassen"