Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Zellen fortlaufend mit Datum für 2 Woche

Zellen fortlaufend mit Datum für 2 Woche
20.07.2021 13:36:04
Anna
Hallo zusammen :)
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
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zellen fortlaufend mit Datum für 2 Woche
20.07.2021 14:04:11
Fennek
Hallo,
warum nutzt Du nicht die AutoFill-Funktion?

Sub Makro2()
' Makro2 Makro
Dim Ende As Date
Ende = DateValue("1.8.2021")
Range("A2") = Date
Range("a2").DataSeries Rowcol:=xlColumns, Type:=xlChronological, Date:= _
xlWeekday, Step:=1, Stop:=Ende, Trend:=False
End Sub
mfg
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige