Gruppe
DatumZeit
Problem
Ich möchte in Spalte A die Wochentage Mo - Fr mit einer nachfolgenden Leerzelle und in Spalte B das jeweil zugehörige Datum für einen vorgegebenen Zeitraum eintragen. Wie kann ich das über VBA lösen?
StandardModule: basMain
Sub WochenendeWeg()
Dim datStart As Date, datEnd As Date
Dim lDay As Long
Dim iRow As Integer
datStart = Range("D1").Value
datEnd = Range("D2").Value
For lDay = datStart To datEnd
If WeekDay(lDay, 2) < 6 Then
iRow = iRow + 1
Cells(iRow, 1) = lDay
Cells(iRow, 2) = lDay
End If
Next lDay
End Sub