VBA Datum in ComboBox anzeigen mit Wochentag

[Primo Centurio]

Hallo miteinander


Ich habe folgendes Problem und wäre für eure Hilfe sehr dankbar.
In einer Zelle habe ich ein datum in folgendem Format "Wochentag, dd,mm,yyyy"

mit folgendem code zeigt er mir das Datum in einer combobox (ComboAnreise und ComboAbreise) an:

Code:

If ListBox1.ListCount = 1 Then
   ComboAnrede.Text = rngFind.Offset(0, 1).Value
   ComboName.Text = rngFind.Offset(0, 2).Value
   ComboVorname.Text = rngFind.Offset(0, 3).Value
   ComboEmail.Text = rngFind.Offset(0, 4).Value
   ComboTelefon.Text = rngFind.Offset(0, 5).Value
   ComboZiKat.Text = rngFind.Offset(0, 7).Value
   ComboBeschreibung.Text = rngFind.Offset(0, 8).Value
   ComboZimmer.Text = rngFind.Offset(0, 9).Value
   ComboAnreise.Text = rngFind.Offset(0, 10).Value
   ComboAbreise.Text = rngFind.Offset(0, 11).Value
   ComboCheckIn.Text = rngFind.Offset(0, 12).Value
   ComboNächte.Text = rngFind.Offset(0, 13).Value
   ComboCHFNacht.Text = rngFind.Offset(0, 14).Value
   ComboCHFTotal.Text = rngFind.Offset(0, 15).Value
ListBox1.Clear

End If

Jedoch gibt er mir in der combobox das datum in folgendem Format an "dd.mm.yyyy" wie krieg ich es hin das er mir auch den Wochentag anzeigt.
Die Zelle auf die er sich bezieht wurde über die Formatierung so eingestellte dass er mir auch den Wochentag anzeigt.

Herzlichen Dank für eure Hilfe.

Gruss Primo

[Willie017]

hallo

ComboAnreise.Text = Format(rngFind.Offset(0, 10).Value,"dddd, dd/mm/yyyy")

[Kuwer]

Hallo Primo,

vielleicht auch einfach so:

   ComboAnreise.Text = rngFind.Offset(0, 10).Text
   ComboAbreise.Text = rngFind.Offset(0, 11).Text

Gruß Uwe

[Primo Centurio]

Der Code von Willie hat wunderbar funktioniert :21:

Danke auch dir Uwe  :19:



Wünsche euch allen ein schönes Weekend.

Grüsse

Primo