Datum umformatieren

[lapunta]

Hallo,

bin gerade dabei, einen Code zu schreiben, der mir einen Bereich, in ein anderes Workbook kopiert.
Dabei wird das Datum aus dem Quell-Worksheet ausgelesen: Hat z.B. das Format 01.10.2016

dateWS = Cells(4, 12).Value

Mit diesem Datum soll im Ziel-Workbook ein Sheet benannt werden.
.Name = dateWS

wenn ich es so mache, dann heißt das Sheet im Ziel-Workbook natürlich: 01.10.2016
Ich hätte es aber gern im Format: Okt.16

d.h. es soll nur die Variable umformatiert werden, ohne die Anzeige auf dem Quell-Worksheet zu verändern?

Wie geht's?

[GMG-CC]

Moin, das sollte so hinkommen: 

Code:

Format(dateWS, "MMM.YY")

[lapunta]

Danke, für die schnelle Antwort.

... aber wie bau ich's ein?

wenn ich es so einsetze

dateWS = Cells(4, 12).Value
dateWS = Format(dateWS, "MMM.YY")
heißt das sheet wieder: 01.10.2015

und wenn sie in meine With-Schleife einsetze

With ActiveSheet
    dateWS = .Format(dateWS, "MMM.YY")
    .Name = dateWS
      
 End With

ebenfalls

und ohne Punkt, also so:
With ActiveSheet
    dateWS = Format(dateWS, "MMM.YY")
    .Name = dateWS
      
 End With

heißt das Worksheet: 15.10.2017, obwohl heute schon der 16. ist

[Zwergel]

Hi,
Günter hats doch geschrieben:

.Name = Format(dateWS, "MMM.YY")

[GMG-CC]

Moin,
ich gehe stark davon aus, dass in L4 kein echtes Datum sondern ein Text steht, der wie ein Datum aussieht.
Was ergibt denn

Code:

MsgBox Vartype(cells(4,12))

(ich hoffe, der Code ist korrekt).

[lapunta]

Oh, sorry - jetzt funktionierts

Danke