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 
.
Vielleich findet ja jmd den Fehler, ich wäre sehr dankbar;-)
VBA Makro
-
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.CodeIf Jahreszahl Mod 4 = 0 Then
mod ermittelt den restwert. wenn dieser 0 ist, sollte es ein schaltjahr sein. -
Alles klar, super danke
