Mondphasen Berechnen in Excel
Schritt-für-Schritt-Anleitung
Um die Mondphasen in Excel zu berechnen, kannst Du eine benutzerdefinierte Funktion erstellen. Hier ist eine einfache Methode, um die Mondphase zu berechnen, basierend auf dem Datum.
- Öffne Excel und drücke
ALT + F11, um den VBA-Editor zu öffnen.
- Klicke auf
Einfügen und dann auf Modul, um ein neues Modul zu erstellen.
- Kopiere den folgenden VBA-Code in das Modul:
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" ' Neumond
Case 1 To 6
Mondtag = ""
Case 7
Mondtag = "z" ' Zunehmender Halbmond
Case 9 To 13
Mondtag = ""
Case 14
Mondtag = "V" ' Vollmond
Case 15 To 20
Mondtag = ""
Case 21
Mondtag = "a" ' Abnehmender Halbmond
Case 22 To 27
Mondtag = ""
Case 28
Mondtag = ""
Case Else
Mondtag = ""
End Select
End Function
- Schließe den VBA-Editor und gehe zurück zu Deinem Excel-Dokument.
- Verwende die Funktion
=Mondtag(A1), wobei A1 das Datum ist, für das Du die Mondphase berechnen möchtest.
Häufige Fehler und Lösungen
-
Fehler: Funktion nicht erkannt.
- Lösung: Stelle sicher, dass Du den VBA-Code korrekt eingefügt hast und das Makros in Excel aktiviert sind.
-
Fehler: Ungültiges Datum.
- Lösung: Vergewissere Dich, dass das Datum im richtigen Format (TT.MM.JJJJ) eingegeben wurde.
-
Fehler: Keine Rückmeldung.
- Lösung: Überprüfe, ob die Formel korrekt eingegeben wurde und das richtige Datum referenziert wird.
Alternative Methoden
Wenn Du die Mondphasen in Excel berechnen möchtest, ohne VBA zu verwenden, kannst Du auch eine Formel zur Berechnung des Mondalters nutzen. Eine einfache Formel, um das Mondalter zu berechnen, könnte wie folgt aussehen:
=MOD((A1-DATUM(JAHR(A1),1,1)+1),29.53)
Diese Formel nutzt das Datum in Zelle A1 und berechnet das Mondalter, wobei angenommen wird, dass der Neumond am 1. Januar eines Schaltjahres stattfindet.
Praktische Beispiele
Hier sind einige Beispiele, wie Du die Mondphasen berechnen kannst:
-
Vollmond berechnen: Wenn Du den Vollmond für den 15. März 2023 berechnen möchtest, gib in Zelle A1 15.03.2023 ein und verwende die Funktion =Mondtag(A1). Das Ergebnis sollte "V" anzeigen.
-
Mondalter berechnen: Um das Mondalter am selben Datum zu berechnen, verwende die Formel =MOD((A1-DATUM(JAHR(A1),1,1)+1),29.53).
Tipps für Profis
- Du kannst die benutzerdefinierte Funktion erweitern, um zusätzliche Informationen wie den nächsten Vollmond oder Neumond zu berechnen.
- Nutze bedingte Formatierungen in Excel, um die Zellen je nach Mondphase farblich zu kennzeichnen.
- Wenn Du oft mit Mondphasen arbeitest, erstelle eine eigene Excel-Vorlage mit den erforderlichen Funktionen.
FAQ: Häufige Fragen
1. Kann ich die Mondphasen für Jahre über 3000 berechnen?
Ja, die Funktion, die wir erstellt haben, kann für beliebige Daten verwendet werden, solange sie im korrekten Datumsformat eingegeben werden.
2. Gibt es eine einfache Formel, um die Mondphasen zu berechnen?
Ja, Du kannst die oben genannten Formeln verwenden, um das Mondalter zu berechnen, was eine einfache Methode zur Bestimmung der Mondphasen ist.
3. Wo finde ich weitere Informationen über Mondphasen in Excel?
Eine gute Quelle ist der Link von Manuele Rocco Parrino, den Du in diesem Thread findest: Mondphasen in Excel.