Excel VBA - Kalender

Fangen wir einmal mit dem Kalender an, welcher die Monate nebeneinander bringt. Da müssen ja die Tage dann untereinander gelistet werden.
 
Kalender Beispiel 1
 


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.

 

Beispiel Kalender 2

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

Cookies erleichtern die Bereitstellung unserer Dienste. Mit der Nutzung unserer Dienste erklären Sie sich damit einverstanden, dass wir Cookies verwenden.
Weitere Informationen Ok