>> Hallo ich würde gerne, damit eine combobox füllen. Das Format sollte aber sein: z.b. Montag, 1.12. Aber es soll nicht wie in meinem Code ein Text, sondern ein datumswert mit dem gerechnet werden kann.

Daten ansich und das anzeigen dieser sind strikt voneinander zu trennen, im Arbeitsspeicher und auf der Festplatte sind alles nur Einsen und Nullen die nach Wunsch umgewandelt auf dem Bildschirm angezeigt werden können. Ob diese gespeicherten Daten in der Anzeige einen Sinn ergeben ist ne ganz andere Sache.

Nehmen wir das Beispiel aus dem vorherigen Beitrag:

Option Explicit
 
Sub Example()
   
  Dim dtm As Date
   
  dtm = #6/1/2017# 'CDate("1.6.2017"), CDate("2017-6-1"), DateSerial(2017, 6, 1) usw.
   
  dtm = DateAdd("d", 3, dtm)  '+3 Tage   -> 2017-6-4
  dtm = DateAdd("d", -5, dtm) '-5 Tage  -> 2017-5-30
  dtm = DateAdd("ww", 1, dtm) '+1 Woche  -> 2017-6-6
   
End Sub

Hier wurde ein wenig mit dem Datum gerechnet:

Willst du diese ausgeben, dann wandelst du die Daten in eine Zeichenkette (String) um.

Option Explicit

Sub Example()
  
  Dim dtm As Date
  
  dtm = #6/1/2017#
  
  MsgBox "ddd, dd.mm. -> " & Format$(dtm, "ddd, dd.mm.")
  MsgBox "yyyy-dd-mm -> " & Format$(dtm, "yyyy-dd-mm")
  MsgBox "yyyy dd.mm -> " & Format$(dtm, "yyyy dd.mm")
  
End Sub

Willst du damit wieder rechnen, musst du den String wieder in ein Datum (Date) umwandeln. Das ist je nach dem vorliegenden Format einfach oder etwas fummelig.

Bei z.B. "Montag, 1.12." wirds fummelig, da die Standardfunktionen von VBA das nicht von selbst aufgelöst und umgewandelt bekommen. Abhilfe wäre hier das Datum in einer versteckten Spalte "normal" abzulegen und mit diesem zu rechnen.

Gruß