Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1840to1844
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1840to1844
1840to1844
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Werktage auflisten

Werktage auflisten
27.07.2021 12:04:49
Anna
Hallo Zusammen :D
Ich möchte mit VBA nur eine Funktion:
Ich möchte gerne per VBA vom nächsten Montag bis Freitag alle Werktage auflisten. Also in dem Sinne:
02.08.21
03.08.21
04.08.21
05.08.21
06.08.21
Ich hab das mit Macrorecorder versucht, aber da wird nur gefiltert. Ich möchte gerne mit dem Code weiterarbeiten. Also wie gesagt, egal wann ich es in der Woche ausführe, sollte es zum nächsten Montag anfangen.
Vielen Dank an alle.

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Werktage auflisten
27.07.2021 15:33:23
Yal
Hallo Anna,
alle Werkstage? Dann am besten in einer sparaten Blatt:

Sub VonMontagBisFreitag()
Dim ws As Worksheet
Dim wd As Integer
Dim Datum As Date
Dim i
'Neues Blatt
Sheets.Add After:=ActiveSheet
Set ws = ActiveSheet
Datum = CDate(CLng(Now - 1))
'Montag suchen
Do
Datum = Datum + 1
wd = WorksheetFunction.Weekday(Datum, 2)
Loop While wd > 1
Application.ScreenUpdating = False
'Von da an, nur Montag bis Freitag anzeigen
For i = 1 To 100000
If WorksheetFunction.Weekday(Datum, 2)
VG
Yal
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige