Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
744to748
744to748
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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
Anzeige

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

Betreff
Datum
Anwender
Anzeige
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..
Anzeige
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
Anzeige
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)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige