Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Bestimmte Wochentage ohne Feiertage listen

Gruppe

Liste

Problem

In den Spalten E:F werden alle Dienstage und Donnerstage gelistet, sofern es sich nicht um einen Feiertag handelt.

Lösung
Geben Sie den Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

StandardModule: Modul1

Sub Anlegen()
   Dim vDay As Variant
   Dim iRow As Integer, lDay As Long
   For lDay = DateSerial(Range("C1").Value, 1, 1) To DateSerial(Range("C1").Value, 12, 31)
      If Weekday(lDay) = 3 Or Weekday(lDay) = 5 Then
         If IsError(Application.Match(lDay, Columns(1), 0)) Then
            iRow = iRow + 1
            Cells(iRow, 5).Value = CDate(lDay)
            Cells(iRow, 6).Value = Format(lDay, "ddd")
         End If
      End If
   Next lDay
End Sub

    

Beiträge aus dem Excel-Forum zu den Themen DatumZeit und Liste