Hallo,

ich würde gerne den Namen des Tages (=Inhalt der String-Variablen "nameErsterTagMonat") in Kurzschreibweise ausgeben. Leider komme ich nicht mehr weiter.

Mein Versuch mit:

nameErsterTagMonat = Format(nameErsterTagMonat, "ddd") 

Klappt nicht.

Vielen Dank für die Hilfe im Voraus!!!

Private Sub NmonatErzeugen_Click()
Dim d As Date
Dim nameErsterTagMonat As String

d = UserForm.TextBox1

nameErsterTagMonat = WeekdayName(Weekday(d, 2))

nameErsterTagMonat = Format(nameErsterTagMonat, "ddd")

End Sub