Microsoft Office Tutorials and References
In Depth Information
8.4.4 Jahreskalender
die VBA-Funktion Day() zur Ermittlung des Tages eines Monats
Day()
die Worksheet-Funktion EoMonth() zur Bestimmung des letzten
Tages eines bestimmten Monats
EoMonth()
Der Code für den Jahreskalender:
Sub Jahreskalender()
Dim Tag As Integer, Monat As Integer, Jahr As Integer
Dim Datum As Date, DatumErster As Date
Dim AnzahlTage As Integer
Jahr = Application.InputBox("Bitte ein Jahr eingeben:" _
, Type:=1)
' Application.ScreenUpdating = False
Workbooks.add
For Monat = 1 To 12
DatumErster = DateSerial(Jahr, Monat, 1)
AnzahlTage = Day(Application.WorksheetFunction. _
EoMonth(DatumErster, 0))
For Tag = 1 To AnzahlTage
Datum = DateSerial(Jahr, Monat, Tag)
Cells(Tag, Monat).Value = Datum
Cells(Tag, Monat).NumberFormatLocal = "TT.MM.JJ"
IfWeekday(Datum)=7Then
Cells(Tag, Monat).Interior.Color = vbYellow
ElseIf Weekday(Datum) = 1 Then
Cells(Tag, Monat).Interior.Color = vbGreen
End If
Next Tag
Next Monat
' Application.ScreenUpdating = True
End Sub
Zur Erläuterung:
Als Erstes soll der Benutzer eine Jahreszahl eingeben:
Abbildung 8.29
Eingabe der Jahreszahl
Search JabSto ::




Custom Search