Excel und VBA: Formeln, Programmierung, Lösungen
Die Excel/VBA-Beispiele
Thema
Wochentage Mo - Fr in Tabelle eintragen
Gruppe
Wochentag
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