Funktion "Date" erzeugt unter Win XP Fehler b.VBA
21.09.2005 20:48:21
maxpayne
habe unter W2000 und NT VBA erstellt und jetzt eher zufällig die Anwendung unter XP installiert.
Anscheinend gibt es mit der Funktion Date ein Problem. Folgende Prozedur erzeugt den Fehler:
Sub Datum_prüfen()
Dim aktuell As Date
Dim versionsdate As Date
versionsdate = "31.12.2005"
aktuell = Date
If aktuell > versionsdate Then
MsgBox "Fehler: Diese Version ist abgelaufen, bitte wenden Sie sich an Ihren Betreuer"
Workbooks.Close
End If
End Sub
Der Debugger unterlegt unter XP die Funktion Date grau und meldet, dass das Modul nicht zu finden sei. Wenn ich diese Prozedure umgehe bringt er im weiteren Modulen immer bei der Funktion Date einen Fehler. Wie gesagt unter NT und W2000 ist alles i.o ! Wer hat eine Idee ?
MaxPayne