Hi Freaks,

ich bin am Verzweiflen, habe eine Monatsaufstellung für Arbeitsstunden, was auch läuft, bis auf die Monate mit 30 Tagen.

Nur bei diesen zeilen (if Day(x....)unten, da kommt die Fehlermeldung 13.

Hinweis:
Das Programm lief auf Excel 97.
Ich habe es nicht geschrieben.


For x = 28 To 31
On Error Resume Next
If Day( x & "." & Monat & "." & jahr) > 0 Then
LetztTag = Day(x & "." & Monat & "." & jahr)
End If
Next x

ich danke schon mal für Eure Hilfe.

Bernd