Excel und VBA: Formeln, Programmierung, Lösungen

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 Funktion und WENN