Mondtag berechnen Funktion
Stef@n
hier im Forum habe ich folgende Funktion gefunden und möchte sie gern nutzen.
Nur WIE baut man sie als Makro ein ?
Ich habe es als Code in VBA unter "diese Arbeitsmappe" eingefügt
Bei der Eingabe im Excelsheet =Mondtag(d4) erscheint "'Name?
Freu mich auf eine Antwort
Gruß Stef@n
Function Mondtag(t)
' 0 ist Neumond
Y1 = Year(t)
m = Month(t)
d = Day(t)
C = 0.001
M9 = (-1) * Int(((14 - m) / 12) + C)
J1 = d - 2447095 + Int((1461 * (Y1 + 4800 + M9) / 4) + C)
J2 = J1 + Int((367 * (m - 2 - 12 * M9) / 12) + C)
J2 = J2 - Int((3 * (Y1 + 4900 + M9) / 400) + C)
M5 = J2 - 23743
M6 = M5 / 29.530588
m = Int(M5 - Int(M6) * 29.530588)
Select Case m
Case 0
Mondtag = "N"
Case 1 To 6
Mondtag = ""
Case 7
Mondtag = "z"
Case 9 To 13
Mondtag = ""
Case 14
Mondtag = "V"
Case 15 To 20
Mondtag = ""
Case 21
Mondtag = "a"
Case 22 To 27
Mondtag = ""
Case 28
Mondtag = ""
Case Else
Mondtag = ""
End Select
End Function
Anzeige