Kalender erstellenFangen wir einmal mit dem Kalender an, welcher die Monate nebeneinander bringt. Da müssen ja die Tage dann untereinander gelistet werden.
Option Explicit
Sub Kalender()
Dim intfrage As Integer
Dim monat As Integer
Dim tag As Integer
Range("A3:L35").ClearContents
intfrage = InputBox("Welches Jahr?")
For monat = 1 To 12 Step 1
Cells(2, monat) = Format(DateSerial(intfrage, monat, 1), "MMMM")
For tag = 1 To Day(DateSerial(intfrage, monat + 1, 0))
Cells(tag + 3, monat) = Format(DateSerial(intfrage, monat, tag), "DD DDD")
Next tag
Next monat
End Sub
Lasst uns mal sehen wie das aussieht, wenn man die Monate untereinander haben möchte. Kalender, welche den Monat untereinander haben müssen dann also die Tage nebeneinander setzen. In unserem Beispiel ist dann natürlich auch noch der Wochentag mit eingebracht.
Option Explicit
Sub Kalender()
Dim intfrage As Integer
Dim monat As Integer
Dim tag As Integer
Range("A1:AE12").ClearContents
intfrage = InputBox("Welches Jahr?")
For monat = 1 To 12 Step 1
Cells(monat, 1) = Format(DateSerial(intfrage, monat, 1), "MMMM")
For tag = 1 To Day(DateSerial(intfrage, monat + 1, 0))
Cells(monat, tag + 1) = Format(DateSerial(intfrage, monat, tag), "DD DDD")
Next tag
Next monat
End Sub
|
VBA Makro Beispiele 
