Calendar Modul!
07.07.2003 14:37:06
Thomas Scher
ich habe hier einen Code für ein Calender Modul und es zeigt mir immer einen festen Tag zum Anfang!Ich möchte aber das er immer auf das aktuelle Datum springt und das vorgibt.. kan mir da jemand helfen ???Hier der Code !
~begin~
Option Explicit
Private Sub Calendar1_Click()
End Sub
Private Sub CommandButton1_Click()
On Error GoTo fehler
Workbooks.Open "????" & Format(Calendar1, "yymmdd") & ".xls"
Unload Me
Exit Sub
fehler:
MsgBox "Die Datei wurde nich gefunden.", 48, "Hinweis"
End Sub
Private Sub CommandButton2_Click()
Unload Me
End Sub
Private Sub UserForm_Click()
End Sub
~end~
gruss und danke
Thomas