Mit diesem script wird das Datum von dem xls-file "DMX.xls" zum xls-file "Verarbeitung.xlsm" im folgenden Format kopiert und übertragen:
"2016-04-29".
Ich würde es aber gerne im folgenden Format haben: 29.04.2016.
Leider funktioniert dies nicht.
Kennt jemand eine Lösung?
Application.Workbooks("DMX.xls").Activate
Sheets("Month").Select
With Sheets("Month")
.Range("A2:A" & .Cells(.Rows.Count, 2).End(xlUp).row).Copy
Application.Workbooks("Verarbeitung.xlsm").Activate
Sheets("Sheet1").Range("B2").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
SkipBlanks _
:=False, Transpose:=False
Selection.NumberFormat = "m/d/yyyy"
End With
Application.CutCopyMode = False
|