plus ein Tag

Hallo,
ich habe von einem Forumsmitglied einen VBA Text bekommen, der bewirkt das ein Datum in eine Zelle gesetzt wird und nur wenn es Samstag oder Sonntag ist, wird der nächste Montag gesetzt. Ich kenn diesen VBA Befehl nicht und kann ihn auch nicht richtig umändern. Ich möchte das fortlaufend in einer Spalte der nächste Tag runtergeschrieben wird, eigentlich wie bei einem Kalender. Bei diesem VBA Text wird allerdings immer der gleiche Tag runtergeschrieben. wenn ich irgendwo +1 einbaue, lässt er immer Sonntag und Montag weg und nicht Samstag und Sonntag. Weiß jemand Rat?
'fortlaufendes Datum eintragen
For i = 4 To 125
TB2.Range(TB2.Cells(i, 2), TB2.Cells(i, s)).Clear
TB2.Cells(i, 1) = TB2.Cells(i - 1, 1) + Application.Max(0, 2 - TB2.Cells(i - 1, 1) Mod 7)
If Weekday(TB2.Cells(i, 1)) = 6 Then TB2.Cells(i, 2).Resize(, s - 2).Borders(xlEdgeBottom).LineStyle = xlContinuous
Next i
Gruß Tina

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hi Tina,
warum bleibst du mit deiner Zusatzfrage nicht im alten Thread? Ich meine diesen:
https://www.herber.de/forum/archiv/1252to1256/t1255919.htm
Probier mal


Sub aTest()
Dim i As Long
Dim s As Long
s = 3
TB2.Range(TB2.Cells(4, 2), TB2.Cells(125, s)).ClearContents   ' auf einmal, vor der Schleife
For i = 4 To 125
TB2.Cells(i, 1) = TB2.Cells(i - 1, 1) + 1 + Application.Max(0, 2 - (1 + TB2.Cells(i - 1,  _
1)) Mod 7)
If Weekday(TB2.Cells(i, 1)) = 6 Then _
TB2.Cells(i, 2).Resize(, s - 2).Borders(xlEdgeBottom).LineStyle = xlContinuous
Next i
End Sub

Wie du siehst, habe ich zwei Mal "+ 1" ergänzt.
Den Wert von s habe ich zum Testen willkürlich vorgegeben.
Rückmeldung wäre nett! - Grüße aus Kamp-Lintfort von Erich - und: Schönes Wochenende allerseits!

Sub aTest() Dim i As Long Dim s As Long s = 3 TB2.Range(TB2.Cells(4, 2), TB2.Cells(125, s)).ClearContents ' auf einmal, vor der Schleife For i = 4 To 125 TB2.Cells(i, 1) = TB2.Cells(i - 1, 1) + 1 _ + Application.Max(0, 2 - (1 + TB2.Cells(i - 1, 1)) Mod 7) If Weekday(TB2.Cells(i, 1)) = 6 Then _ TB2.Cells(i, 2).Resize(, s - 2).Borders(xlEdgeBottom).LineStyle = xlContinuous Next i End Sub

Sub aTestS() Dim arA(1 To 123, 1 To 1) As Date, rngS As Range Dim i As Long, s As Long, lngP As Long s = 4 With TB2 arA(1, 1) = .Cells(3, 1).Value ' Startdatum For i = 2 To 123 arA(i, 1) = arA(i - 1, 1) + 1 ' + 1 Tag lngP = arA(i, 1) Mod 7 ' lngP ist ähnlich Weekday If lngP

Beliebteste Forumthreads (12 Monate)

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread