Excel und VBA: Formeln, Programmierung, Lösungen

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