Automatisierungsfehler - Function
27.08.2008 21:35:17
Manemann
ich habe in eine Excel-Tabelle die folgende Funktion eingebaut.
Private Function DINKW(dat As Date) As Integer
Dim dbl As Double
dbl = DateSerial(Year(dat + (8 - Weekday(dat)) Mod 7 - 3), 1, 1)
DINKW = (dat - dbl - 3 + (Weekday(dbl) + 1) Mod 7) \ 7 + 1
End Function
und rufe diese über die folgende Formel auf:
=VERKETTEN("Aktuelles Datum: ";TEXT(HEUTE();"TT.MM.JJ");" - Kalenderwoche: ";DINKW(HEUTE()))
Bei ersten Aufruf dieser Funktion bekomme ich die Meldung:
Automatisierungsfehler
SChwerwiegender Fehler
Beende ich den Debugger und speichere ich die Exceldatei mit dem Makro, so funktioniert dies beim nächsten Aufruf einwandfrei.
Da ich die Datei an Schüler weitergeben möchte, wäre ich für einen Hinweis, wie ich dieses Verhalten vermeiden kann, sehr dankbar.
Gruß
Stefan Manemann