VBA Makro

    Hi Leute,

    Ich hab ne kleine Frage zu nem VBA Makro, da ich ehrlich gesagt nen newb bin, komm ich auch nicht auf die Lösung und zwar folgendes:

    Sub Februar()
    Dim Jahreszahl, Februartage As Integer
    Dim Eingabe As String
    Eingabe = InputBox("Bitte geben Sie eine Jahreszahl ein:" & Eingabe)
    Jahreszahl = Val(Eingabe)
    If Jahreszahl / 4 Then
    Februartage = 29
    Else
    Februartage = 28
    End If
    If Jahreszahl / 100 And Not Jahreszahl / 400 Then
    MsgBox ("Der Februar " & Jahreszahl & " hat " & Februartage & " Tage.")
    End If
    End Sub

    Bei dem Makro geht es darum wie unschwer zu erkennen ist, die Februartage abhängig von den Schaltjahren zu errechnen. Leider kommt bei mir immer 29 raus :cry:.

    Vielleich findet ja jmd den Fehler, ich wäre sehr dankbar;-)

    naja.... wenn du nur fragst ob jahreszahl durch 4 teilbar is, bekommst
    nie n ordentliches ergebnis. du musst fragen ob das jahr durch 4 teilbar
    ist und dabei ne ganze zahl rauskommt.

    Code
    If Jahreszahl Mod 4 = 0 Then


    mod ermittelt den restwert. wenn dieser 0 ist, sollte es ein schaltjahr sein.