Problem beim Runden des Datums
06.02.2008 11:41:21
Tobias
Ich habe folgendes Skript welches anhand des Datums welches in der Zelle ( datum ) steht eine Datei
mit dem der Jahreszahl und dann das Tabellenblatt des Monats öffnet. ( Nulldazu = wenn Januar 1 macht er das Blatt 01 auf )
In der Zelle datum steht das Datum mit der Uhrzeit. Das lässt ich aufgrund der restlichen Funktionen der Datei auch nicht ändern.
Mein Problem ist das er das Darum rundet. Das heißt ab 12.00 Uhr rundet er den Tag auf. Was dann am letzten Tag des Monats zu Fehlern führt. Hat jemand eine Idee wie ich das Problem lösen könnte?
Danke im Voraus
Tobi
Sub Monat_wahl()
Dim Jahr As Long, Monat As Long
Dim Datei As String ' xls zu öffnende xls-Datei
Dim n As Long
n = Range("datum").Value
Jahr = Year(n)
Monat = Month(n)
Datei = Jahr & ".xls"
Workbooks(Datei).Activate
Sheets(nulldazu(Monat)).Activate
Exit Sub
End Sub