Fortlaufendes Datum in Spalten ausgeben

[Björn.412]

Moin,
in einer Zelle wird ein Datum eingetragen und jetzt soll sich das Datum über diverse Spalten mittels VBA jeweils um einen Tag erhöhen.

Für eine zweite Spalte ist das kein Problem, da kann ich das so machen:
Range("I7").Value = Range("H7").Value + 1

Aber wie ist das z. B. für den Rest eines Jahres?
Das z. B. funktioniert nicht : Range("I7:NN7").Value = Range("I7:NN7").Value + 1

Welche VBA Lösungen gibt es, um ein fortlaufendes Datum über X-Spalten automatisch zu generieren?

Gruß
Björn

[Klaus-Dieter]

Hallo Björn,

dafür braucht man doch kein Makro. Schreibe in die erste Zelle das Startdatum, dann fasst du mit der Maus das Ausfüllkästchen der Zelle an und ziehst nach rechts, so weit du das Datum ausfüllen möchtest.

[Björn.412]

Moin Klaus-Dieter,
im Grunde hast Du recht, aber hier ist die Ausgangslage eine andere und deshalb muss eine VBA-Lösung her.

Gruß
Björn

[BoskoBiati]

Hi,

kann man googeln:

Code:

Range("H7").AutoFill Range("H7:NN7"), xlFillSeries

[Björn.412]

Moin,
danke für die Lösung.

Gruß Björn

[HKindler]

Hi,

das Googeln kann man sich auch sparen, wenn man den Vorschlag von Klaus-Dieter mit dem Makrorekorder aufzeichnet...

[RPP63]

Moin!
Oder per Formel in einem aktuellen Excel
Einzige Formelzelle in I7

	H	I	J	K
7	03.05.2023	04.05.2023	05.05.2023	06.05.2023

Zelle	Formel
I7	=SEQUENZ(;SPALTEN(I7:NN7);H7+1)

Um den Ansatz des Threaderöffners aufzugreifen:

Code:

Sub Auffüllen()
With Range("I7:NN7")
  .Formula = "=H7+1"
  .Value = .Value
End With
End Sub

Abschließend noch eine Lösung für altes Excel ohne VBA:
• ins Namenfeld I7:NN7 eingeben, Enter
• =H7+1 mit Strg+Enter abschließen

Gruß Ralf