Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1808to1812
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
Inhaltsverzeichnis

Datum Format per Makro ändern

Datum Format per Makro ändern
29.01.2021 13:32:09
Sigi
Hallo,
ich möchte das Datumsformat von 01.01.17 auf 01.01.2017 ändern.

Sub Datum()
Dim i As Long
Application.ScreenUpdating = False
With Sheets("Tabelle1")
For i = 2 To .Cells(Rows.Count, "B").End(xlUp).Row
.Cells(i, "B").Copy .Cells(i, "A")
.Cells(i, "A").NumberFormat = "dd.mm.yyyy"
Next i
End With
Application.ScreenUpdating = True
End Sub

Leider funktioniert es nicht.
Was mache ich falsch?
Danke!
Gruß
Sigi
https://www.herber.de/bbs/user/143415.xlsm

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datum Format per Makro ändern
29.01.2021 13:52:50
peterk
Hallo
Du hast kein gültiges Datum in Spalte B, daher

Sub Datum()
Dim i As Long
Application.ScreenUpdating = False
With Sheets("Tabelle1")
For i = 3 To .Cells(Rows.Count, "B").End(xlUp).Row
.Cells(i, "A") = CDate(.Cells(i, "B"))
Next i
End With
Application.ScreenUpdating = True
End Sub

AW: Datum Format per Makro ändern
29.01.2021 13:59:02
Beverly
Hi Sigi,
die Zellen B3:B14 sind bei dir Text, deshalb funktioniert es nicht - du musst die Zellinhalte zuerst in "richtige" Zahlen umwandeln: schreibe dazu eine 1 in eine bisher nicht benutzte Zelle, kopiere diese (Strg+C) -&gt markiere B3:B14 -&gt Einfügen -&gt Inhalte einfügen... -&gt Vorgang: Multiplizeiren.


Anzeige
AW: Datum Format per Makro ändern
29.01.2021 14:02:35
Sigi
Hallo Beverly,
vielen Dank, erspart mir viel Arbeit.
Gruß
Sigi
AW: Datum Format per Makro ändern
29.01.2021 14:01:54
UweD
Hallo
ohne Schleife
- Formel =Datwert(B3) wird verwendet
- Danach (wenn notwendig) Formatierung
- Dann Formel in Wert

Sub Datum()
Dim i As Long
Application.ScreenUpdating = False
With Sheets("Tabelle1")
With .Cells(3, 1).Resize(.Cells(Rows.Count, "B").End(xlUp).Row - 2, 1)
.FormulaR1C1 = "=DATEVALUE(RC[1])"
.NumberFormat = "dd.mm.yyyy"
.Value = .Value
End With
End With
End Sub
LG UweD

125 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige