Datumsformat in Textformat umwandeln
10.01.2006 07:55:43
Peter
Sub NewDate()
Dim nDate As Date
Dim vDate As Date
Dim nTag As Variant
Guten Tag
Nachfolgender Code habe ich gestern von Rainer erhalten. Ich habe nun eine Anschlussfrage.
Der Code gibt mir mit nDate ein Datum zurück. Im konkreten Fall muss das Datum in meinem Sheet jedoch als Text erkannt werden. Wie nehme ich die Umwandlung vor?
Danke für Rückmeldung
Peter
nDate = Range("navDate")
nTag = Weekday(nDate, vbMonday)
If nTag = 1 Then
nDate = nDate - 3
Else
nDate = nDate - 1
End If
'Schreibe in Zelle neben "navDate"
'das neue Datum
Range("navdate").Offset(0, 1) = nDate
'...oder sonstwo hin
Range("B10") = nDate
End Sub