Datum addieren mit VBA

Forumthread: Datum addieren mit VBA

24.10.2005 00:07:25

Diver

Hallo Leute,
ich habe in einer Zelle z. B. den 21.10.2005 stehen.
Mit VBA-Code sollen nun in einer Schleife 10 Tage
hinzuaddiert werden, so dass am Ende der 31.10.2005
steht.
Das Ergebnis sind untereinader stehende Zellen mit dem
21.10.2005 bis zum 31.10.2005.
Leider klappt das mir nicht so recht.
Weiß jemand Rat.
Vielen Dank vorab.
Gruss,
D.

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

AW: Datum addieren mit VBA

24.10.2005 00:17:37

Josef

AW: Datum addieren mit VBA

24.10.2005 00:17:37

Josef

Hallo Diver!
Beispiel für Startdatum in "A1"!

Sub Datum()
Dim rng As Range
Dim n As Integer

Set rng = Range("A1")

If Not IsDate(rng) Then Exit Sub

For n = 1 To 10
rng.Offset(n, 0) = rng + n
Next

End Sub

'******************************
'* Gruß Sepp
'*
'* Rückmeldung wäre nett!
'******************************

Forumthread: Datum addieren mit VBA

1 Beitrag zum Forumthread Beitrag zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread