VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Wochentage Mo - Fr in Tabelle eintragen

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

    


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