ich gebe ein Datum ein, aus dessen der Monat vollständig angeben werden soll.
Eingabe = 01.06.2009; Ausgabe = Juni
Hierzu habe ich folgendes Sub. Allerdings wird immer der Januar ausgegeben.
Private Sub txb_aDate_AfterUpdate()
Dim strMonat As String
Dim anfdate As Variant
anfdate = CDate(txb_aDate)
strMonat = DatePart("m", anfdate)
MsgBox Format(strMonat, "MMMM")
End Sub
?