Das verstehe ich nicht!

Bild

Betrifft: Das verstehe ich nicht!
von: Bernd Wies
Geschrieben am: 07.10.2003 15:58:22

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

Bild


Betrifft: AW: Das verstehe ich nicht!
von: Matthias G
Geschrieben am: 07.10.2003 16:29:21

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


Bild


Betrifft: AW: Das verstehe ich nicht!
von: Bernd Wies
Geschrieben am: 07.10.2003 16:52:03

Danke Matthias,

Dat Läuft! Super!

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

Bernd


Bild


Betrifft: AW: Das verstehe ich nicht!
von: Matthias G
Geschrieben am: 07.10.2003 17:01:33

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


 Bild

Beiträge aus den Excel-Beispielen zum Thema " Werte von Tabelle1 in Tabelle 3"