plus ein Tag
Tina
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