ich versuche mich schon den ganzen Tag am folgenden Problem, komme aber nicht zum Ergebnis. Ich habe folgenden Code
Sub Datumzuweisen()
Dim Planungsjahr As Integer
Dim intTag As Integer
Planungsjahr = 2016
For intTag = 1 To Day(DateSerial(Planungsjahr, Month(Date) + 1, 0))
Cells(3, intTag + 4) = DateSerial(Planungsjahr, Month(Date), intTag)
Next intTag
End Sub
Mir soll also in der dritten Zeile, ab der Spalte 5, fortlaufend eine Datumsreihe eingetragen werden. Das funktioniert soweit guht. Allerdings möchte ich immer nur den Tag mit vorangestellter 0, also im Format "dd", angezeigt bekommen. Andere Formate funktionieren, aber "dd" will einfach nicht gehen. Hat jemand eine Lösung?