Gruppe
DatumZeit
Bereich
Wochentag
Thema
Wochentage Mo - Fr in Tabelle eintragen
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?
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
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