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