Gruppe
Feature
Problem
Wie kann ich die Tagesliste eines Monats nach Eingabe der Monatsoder Jahreszahl automatisch aktualisieren und Samstage und Sonntage unterschiedlich markieren lassen?
StandardModule: basMain
Sub MonatAnlegen()
Dim wks As Worksheet
Dim datDay As Date
Dim var As Variant
Dim lDay As Long
Dim iYear As Integer, iMonth As Integer
Application.ScreenUpdating = False
Set wks = ActiveSheet
iYear = Year(Range("A1").Value)
iMonth = Month(Range("A1").Value)
For lDay = DateSerial(iYear, iMonth, 1) To _
DateSerial(iYear, iMonth + 1, 0)
var = Application.Match( _
lDay, Worksheets("Feiertage").Columns(1), 0)
If IsError(var) And WorksheetFunction.WeekDay(lDay) < 6 Then
Worksheets.Add.Move after:=Worksheets(Worksheets.Count)
ActiveSheet.Name = Format(lDay, "dd.mm.yy")
End If
Next lDay
wks.Select
Application.ScreenUpdating = True
End Sub