Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1072to1076
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
Inhaltsverzeichnis

Datumsreihe ohne Wochenende

Datumsreihe ohne Wochenende
06.05.2009 08:36:20
Harald
Hallo Excel-Freunde
Ich hab mir zur erstellung einer Zeitschiene folgendes Modul gebastelt:

Sub Zeitschiene()
Dim lR As Integer, i As Integer
Dim lol As Date
lR = Range("C1").Value + 1  ' Zähler wie viele Tage die Datumsschiene enthält
lol = Range("D1").Value + 1 'Startdatum
For i = 2 To lR
Cells(i, 1) = lol
lol = lol + 1
Next i
End Sub


das was ich nicht auf die Reihe brinnge:
wie kann ich es erreichen das es Tage die auf ein Wochenende fallen(Sa und So) übersprungen werden
Danke schon mal im Voraus
mfg
Harry

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datumsreihe ohne Wochenende
06.05.2009 08:54:58
Ingo
Hallo Harry,

Sub Zeitschiene()
Dim lR As Integer, i As Integer
Dim lol As Date
lR = Range("C1").Value + 1  ' Zähler wie viele Tage die Datumsschiene enthält
lol = Range("D1").Value + 1 'Startdatum
For i = 2 To lR
Cells(i, 1) = lol
lol = lol + 1
If Weekday(lol) = 7 Then lol = lol + 1
If Weekday(lol) = 1 Then lol = lol + 1
Next i
End Sub


mfG
Ingo Christiansen

AW: Datumsreihe ohne Wochenende
06.05.2009 09:13:02
robert
hi,
in die for-next schleife
If WorksheetFunction.Weekday(lol, 2) < 6 Then
gruß
robert
AW: Datumsreihe ohne Wochenende
06.05.2009 11:12:51
Harald
Danka an alle Beide.
funktionieren alle zwei vorschläge tadellos
mfg
Harry
Anzeige

304 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige