If Schaltjahr Then
27.01.2009 17:34:33
markus
da tut sich doch noch ein Problem auf und zwar das Schaltjahr,
wie kann ich das in mein Makro einbinden in Zelle Vorgaben!C2 steht das Jahr und nur im Schaltjahr möchte ich diesen Befehl ausführen: .Range("A16") = sh.Range("B5")
Funktion habe ich folgende gefunden:
Function Schaltjahr(Jahreszahl) As Boolean If (Jahreszahl Mod 4) = 0 And (Jahreszahl Mod 100) 0 Or _ ((Jahreszahl Mod 400) = 0) Then Schaltjahr = True Else Schaltjahr = False End If End Function
Danke für eure Hilfe!