In diesem Artikel erfahren Sie, wie Sie Wochentage, d. H. Montag bis Freitag, automatisch mit VBA-Code in einer beliebigen Spalte eingeben.

Klicken Sie auf die Registerkarte Entwickler. Wählen Sie in der Gruppe Code Visual Basic

img1

aus Klicken Sie auf Einfügen und dann auf Modul

img2

Dadurch wird ein neues Modul erstellt.

Geben Sie den folgenden Code in das Modul

ein === Sub WeekendOut ()

Dim Start As Date, Off As Date

Dim y%, i #

Start = InputBox („Startdatum:“)

Off = InputBox („End Date:“)

===

Für i = Start To Off

y = y + 1

Wenn Wochentag (i, 2) <6, dann

Zellen (y, 2) = Format (i, „mm-tt-jj“)

Zellen (y, 1) = Format (i, „dddd“)

ElseIf Weekday (i, 2) = 6 Dann

Sonst

y = y – 1

End If

Weiter i

End Sub

===

img3

Drücken Sie die Tastenkombination ALT + F8, um das Makrofenster zu öffnen, und wählen Sie dann das Makro aus.

img4

Alternativ können Sie F5 drücken, um den Code im VBA-Bildschirm auszuführen.

Nach dem Ausführen des Makros erhalten wir das folgende Eingabefeld. Wir müssen das Startdatum im Format MM / TT / JJJJ

img5

eingeben Dann fragt der Code nach der Eingabe des Enddatums

img6

img7

Daher erhalten wir den Wochentag in Spalte A und in der nächsten Zelle wird das Datum gespeichert.

Auf diese Weise können Sie die Wochentage problemlos eingeben, ohne manuelle Schmerzen zu haben.