Datum Format ändern
23.01.2018 08:19:14
Philip
Ich habe eine Tabelle aus der ich Werte kopiere und in eine andere Datei einfüge.
In der Spalte B steht das Datum mit der Uhrzeit(TT.MM.JJJJ hh:mm), jetzt möchte ich diese Zelle kopieren und in die neue Datei einfügen in einem anderen Format und zwar TT.MM.JJ, wie kann ich dass machen? Ich habe in der neuen Datei die Zelle als DAtum Formatiert aber er übernimmt trotzdem immer die Formatierung aus der zu kopierenden Datei.
Der Aktuelle Code:
Dim WB As Workbook, WS As Worksheet, lZ As Long, lR As Long
Application.ScreenUpdating = True
lR = ActiveCell.Row
Set WS = ActiveSheet
Set WB = Workbooks.Open("C:\Users\" & Environ("Username") & "\Dropbox\Probenahme.xlsm")
With WB.Worksheets("Probenahme")
lZ = .Cells(Rows.Count, 2).End(xlUp).Row + 1
.Cells(lZ, 2) = WS.Cells(lR, 2)
.Cells(lZ, 4) = WS.Cells(lR, 9)
.Cells(lZ, 5) = WS.Cells(lR, 4)
.Cells(lZ, 7) = WS.Cells(lR, 6)
.Cells(lZ, 8) = WS.Cells(lR, 8)
End With
Anzeige