Beiträge von clone

  • 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;-)