VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Tagesliste eines Monats nach Eingaben aktualisieren und formatieren

Gruppe

Feature

Bereich

Bedingt

Thema

Tagesliste eines Monats nach Eingaben aktualisieren und formatieren

Problem

Wie kann ich die Tagesliste eines Monats nach Eingabe der Monatsoder Jahreszahl automatisch aktualisieren und Samstage und Sonntage unterschiedlich markieren lassen?

Lösung

Nur anhand einer Beipspielarbeitsmappe darstellbar.




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

    


Beiträge aus dem Excel-Forum zu den Themen Feature und Bedingt