Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1604to1608
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Datum Format ändern
23.01.2018 08:19:14
Philip
Hallo
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
Gruss Philip

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datum Format ändern
23.01.2018 09:47:25
chao.soft
Hi Philip,
versuch es mal mit:
.Cells(lZ, 2) = Format(DateValue(WS.Cells(lR, 2)), "dd.mm.yy")
Falls es nicht funktionieren sollte, einfach nochmal melden.
Beste Grüße
chaosoft
AW: Datum Format ändern
23.01.2018 10:42:51
Philip
Hallo
Funktioniert einwandfrei, Danke.
Gruss Philip
Bei diesem Tipp, sollte man aber auch dazusagen...
23.01.2018 11:39:08
Sepp
..., dass dann kein Datum in der Zelle steht sondern Text!
Gruß Sepp

Anzeige

125 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige