Zellen fortlaufend mit Datum für 2 Woche
20.07.2021 13:36:04
Anna
Ich hab folgendes Problem:
Ich möchte eine Tabelle mit VBA, wo ich von Montag bis nächste Woche Freitag, den Datum samt Text dahinter haben. Sprich für dieses Beispiel (In Spalte A):
19.07.2021 Text 1
20.07.2021 Text 2
21.07.2021 Text 3
22.07.2021 ...
26.07.2021
27.07.2021
28.07.2021
29.07.2021
30.07.2021
31.07.2021
01.08.2021
02.08.2021
Nun habe ich was geschrieben, aber ich stehe vor dem Problem, dass:
-Wochenenden werden mit einbezogen (Nur Werktage)
- Der Code nicht so funktioniert, wie ich es hätte.
-Ich möchte gerne, dass es an der letzten Zeile angehängt wird.
Ich habe mal was versucht: (Wichtig: Ich lasse es Freitag vor dem Wochenstart abspielen, also sollte es mit Montag anfangen und die Woche darauf Freitag aufhören):
Sub Datum()
Dim intZeilenzahl As Integer
Dim intWert As Integer
Dim lgLetzte As Long
Dim kalender As Integer
kalender = 0
intZeilenzahl = 2
lgLetzte = Range("A65536").End(xlUp).Row
For intWert = 1 To 10
Tabelle1.Cells(lgLetzte, 2).Value = Date + kalender & "Text 1"
kalender = kalender + 1
lgLetzte = lgLetzte + 1
Next