ich habe folgendes Problem:
Private Sub NmonatErzeugen_Click()
Dim d As Date
Dim AnzTageMonat As Integer, y As Integer, m As Integer
Dim nameErsterTagMonat As String
d = UserForm.TextBox1
y = Year(d)
m = Month(d)
AnzTageMonat = Day(DateSerial(y, m + 1, 1) - 1)
nameErsterTagMonat = WeekdayName(Weekday(d))
End Sub
Ich würde gerne aus dem Datum d den Namen des Tages in Kurzschreibweise (Mo,Di,Mi,...) ermitteln.
d wird wie folgt in die TextBox1 eingegeben: 01.07.2012
Leider stimmt der Name des Tages nicht!
Über Hilfe würde ich mich sehr freuen - da ich nicht mehr weiterkomme...
Vielen Dank für die Hilfe im Voraus!!!
Viele Grüße,
Jörg