|
Hallo
Mein Makro sieht folgendermassen aus:
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)
ThisWorkbook.Worksheets("Tabelle1").Activate
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"
If Weekday(Datum) = 6 Then
Cells(Tag, Monat).Interior.Color = ybYellow
ElseIf Weekday(Datum) = 7 Then
Cells(Tag, Monat).Interior.Color = ybYellow
End If
Next Tag
Next Monat
End Sub
Ich versuch ein Makro zu schreiben bei dem ich zuerst das jahr eingeben muss und dann denn Monat und als Resultat erhalte ich dann den einen Monat mit den jeweiligen Tagen.
Vielen Dank für eure Hilfe!
|