auf +1 setzen

Forumthread: auf +1 setzen

auf +1 setzen

19.03.2006 16:33:13

mehmet

hallo forum,
ich habe im makro:
datum = Format(Sheets("OPSURweb").Range("d2"), "ddMMMyy")
stehen. wie kann ich den tag +1 setzen.
es soll von zelle d2 gelesen werden und darf den inhalt nicht aendern
geht nicht : datum = Format(Sheets("OPSURweb").Range("d2"), "ddMMMyy" + 1)
geht nicht : datum = Format(Sheets("OPSURweb").Range("d2" + 1), "ddMMMyy")
geht nicht : datum = Format(Sheets("OPSURweb").Range("d2 + 1"), "ddMMMyy")
dank und gruss
mehmet

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: auf +1 setzen

19.03.2006 16:49:32

Nepumuk
AW: auf +1 setzen

19.03.2006 16:58:23

Reinhard
AW: auf +1 setzen

19.03.2006 17:03:55

Nepumuk
AW: auf +1 setzen

19.03.2006 17:33:06

Reinhard
es klappt, dank dir, gruss mehmet o.T.

19.03.2006 17:01:23

mehmet

AW: auf +1 setzen

19.03.2006 16:49:32

Nepumuk

Hallo Mehmet,
so:
datum = Format(DateAdd("d", 1, Sheets("OPSURweb").Range("D2")), "ddMMMyy")
Gruß
Nepumuk

AW: auf +1 setzen

19.03.2006 16:58:23

Reinhard

Hallo Nepumuk,
D2 habe ich als Datum formatiert (14.4.1998), dann gibt Typenfehler 13 bei

Sub tt3()
Dim datum As Date
'MsgBox Sheets(1).Range("d2")
datum = Format(DateAdd("d", 1, Sheets("Tabelle1").Range("D2")), "ddMMMyy")
MsgBox datum
End Sub

Gruß
Reinhard
ps: Ich freue mich über eine Rückmeldung ob diese Antwort hilfreich war oder nicht..

AW: auf +1 setzen

19.03.2006 17:03:55

Nepumuk

Hallo Reinhard,
Format gibt einen String zurück, den du an eine Variable von Typ Date übergibst.
Gruß
Nepumuk

AW: auf +1 setzen

19.03.2006 17:33:06

Reinhard

Hallo Nepumuk,
danke dir wieder mal :-)

Sub tt3()
Dim datum As Date
MsgBox Sheets(1).Range("d2")
datum = Format(DateAdd("d", 1, Sheets("Tabelle1").Range("D2")), "dd.MM.yyyy")
MsgBox datum
End Sub
Sub tt4()
Dim datum As String
datum = Format(DateValue(Sheets(1).Range("D2")) + 1, "ddMMMyy")
MsgBox datum
'MsgBox Format(DateValue(Sheets(1).Range("D2")) + 1, "ddMMM")
'MsgBox Format(DateValue(Sheets(1).Range("D2")) + 1, "ddMMMy")
'MsgBox Format(DateValue(Sheets(1).Range("D2")) + 1, "ddMMMyy")
'MsgBox Format(DateValue(Sheets(1).Range("D2")) + 1, "ddMMMyyy")
'MsgBox Format(DateValue(Sheets(1).Range("D2")) + 1, "ddMMMyyyy")
'MsgBox Format(DateValue(Sheets(1).Range("D2")) + 1, "ddMMMyyyyy")
'MsgBox Format(DateValue(Sheets(1).Range("D2")) + 1, "ddMMMyyyyyy")
'MsgBox Format(DateValue(Sheets(1).Range("D2")) + 1, "ddMMMyyyyyyy")
End Sub

Gruß
Reinhard

es klappt, dank dir, gruss mehmet o.T.

19.03.2006 17:01:23

mehmet

super klappt
dank dir
gruss
mehmet

Beliebteste Forumthreads (12 Monate)

Forumthread: auf +1 setzen

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread