HERBERS
Excel-Forum
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Das verstehe ich nicht!

Das verstehe ich nicht!
07.10.2003 15:58:22
Bernd Wies
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

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Benutzer
AW: Das verstehe ich nicht!
07.10.2003 16:29:21
Matthias G
Hallo Bernd,

versuch' mal folgendes:

For x = 28 To 32
If Day(DateSerial(jahr, Monat, x)) = 1 Then Exit For
Next x
LetztTag = x - 1

Grüße,
Matthias
AW: Das verstehe ich nicht!
07.10.2003 16:52:03
Bernd Wies
Danke Matthias,

Dat Läuft! Super!

Kannst du mal einen Dummi wie mir sagen was da falsch war? verstehe nur Bahnhof.

Bernd
AW: Das verstehe ich nicht!
07.10.2003 17:01:33
Matthias G
Hallo Bernd,
verseh' ich auch nicht. Bei mir läuft dein Code auch.
Aber meiner ist doch eleganter oder? Ohne On Error... ;-)

Grüße und Danke für die Rückmeldung,
Matthias

Meistgelesene Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Ihre Stimme zählt!