Datum als Text formatieren
17.07.2024 14:14:36
Chris
mit unten stehendem Makro erzeuge ich eine Abfolge von Datumsangaben. Jede Zelle möchte ich im Anschluss als Textformatieren, so dass die Inhalte des Formats ddd mm.dd.yyyy als Text angezeigt werden.
Es wird jedoch nicht der Tag als Textangezeicht, nur die Zahlen.
Wie muss man das Makro ändern?
With ActiveSheet
i = 3
.Range("B:B").Clear
.Range("B3").Value = Range("A1").Value
.Range("B" & i).DataSeries Rowcol:=xlColumns, Type:=xlChronological, Date:= _
xlDay, Step:=1, Stop:=Range("A2").Value, Trend:=False
i = i + 1
lcol = .Cells(Rows.Count, 2).End(xlUp).Row
.Range("B3:B" & lcol).NumberFormat = "ddd dd.mm.yy"
For idat = 3 To lcol
.Range("B" & idat) = CStr(.Range("B" & idat)) 'hier wird der Tagname nicht angezeigt.
Next
End With
End Sub
Danke und GRuß
Anzeige