Supportnet Computer
Planet of Tech

Supportnet / Forum / Tabellenkalkulation

Mondphase berechnen





Frage

Ich suche eine Formel, mit der ich in meinem Excel-Kalender die Mondphasen berechnen kann. Gruß Gerd Donner

Antwort 1 von UweP

Hallo Gerd,

Frage zurück:
Wie berechnet man die Mondphasen ohne Excel?

Gruß
Uwe

Antwort 2 von Aliba

Hallo Gerd,

hab echt keinen Plan wie die Formel lauten würde.
Aber schau doch mal unter: http://www.thkoehler.de/midnightblue/m_kal.htm
nach. Jede Menge Informationen und Formeln über sämtliche bekannte
Kalender etc.,

Ich weiß nun z.b. daß die Phase zw. 2 Neumondphasen 29,530589 Tage
beträgt. Allein damit müßte sich schon was anfangen lassen.

Aber wie gesagt stöber mal auf der Seite rum, wird dir bestimmt helfen.
Klick bei dem Kalenderkalkulator mal auf Hilfe und teste die dann folgenden Links (z.b. Kracht)

cu ALiba


Antwort 3 von Gerdon

Danke für die Tipps, damit komme ich erst mal weiter.
An UweP: Deine Frage war eigentlich auch meine Frage.
Mir fehlt jetzt nur noch der Tag 1 des gregorianischen Kalenders. Aber da müsste ich im Internet wohl weiterkommen.

Gruß
Gerd

Antwort 4 von Aliba

Hallo Gerd, vielleicht hilft dir das: (Quelle:HP vorletztes posting)

Bei Einführung des Gregorianischen Kalenders folgte auf Donnerstag, den 4.10.1582 als nächster Tag
Freitag, der 15.10.1582.
Sofort eingeführt wurde der Gregorianische Kalender in Spanien, Portugal, Italien und sehr bald auch in
den übrigen katholischen Ländern.
Die evangelischen Länder nahmen ihn erst viel später an, andere Länder noch später:

evangelischen Staaten Deutschlands 1700
England 1752 (King George II)
Schweden 1753
Japan 1873
Ägypten 1875
China 1912
die Sowjetunion 1918
Griechenland 1923
Türkei am 1.1.1927 (als der Julianischen Kalender gegenüber dem Gregorianischen um 13 Tage
zurück war)

CU
Aliba

Antwort 5 von michael oberley

hi kleines beispiel eines gregojanichen 30 jaehrigen kalenders(2000-2030),es duerfte ein leichtes sein ihn bis zum ursprung (ca.1700)zu kommplettieren und die mondphasen mit einzubauen.
viel spass dann noch
Funktionsweise des jahresdatum und tag Makros

1.1. Auswaehlen einer beliebigen zelle
1.2 strg+d
1.3 das aktuelle jahr+tag in einer zelle

2.1 Auswaehlen einer beliebigen zelle
2.2 eingabe des gewuenschten jahres 2000-2039
2.3 return
2.4 strg+d
2.5 das gewuenschte jahr+tag in einer zelle

3.1 Auswaehlen einer beliebigen zelle
3.2 eingabe des gewuenschten jahres 2000-2039
im anschluss eine 1,beispiel 20051
3.3 return
3.4 strg+d
3.5 das gewuenschte tag+jahr in einer zelle
3.6 hinweis der font muss gleich breite zeichen haben.

4.1 Auswaehlen einer beliebigen zelle
4.2 eingabe des gewuenschten jahres 2000-2039
im anschluss eine 2,beispiel 20052
4.3 return
4.4 strg+d
4.5 das gewuenschte jahr in einer seperaten spalte
und der tag in einer seperaten spalte.

5.1 Auswaehlen einer beliebigen zelle
5.2 eingabe des gewuenschten jahres 2000-2039
im anschluss eine 3,beispiel 20053
5.3 return
5.4 strg+d
5.5 tag in einer seperaten spalte und das jahr in einer seperaten spalte.

Erstellt mit exel2000,bei fragen
michael oberley
tel.: 3356397


Sub jahresdaten()
Dim da(3, 12)
Dim tag$(39), tag1$(7)
da(0, 1) = 31
da(0, 2) = 29
da(0, 3) = 31
da(0, 4) = 30
da(0, 5) = 31
da(0, 6) = 30
da(0, 7) = 31
da(0, 8) = 31
da(0, 9) = 30
da(0, 10) = 31
da(0, 11) = 30
da(0, 12) = 31
da(1, 1) = 31
da(1, 2) = 28
da(1, 3) = 31
da(1, 4) = 30
da(1, 5) = 31
da(1, 6) = 30
da(1, 7) = 31
da(1, 8) = 31
da(1, 9) = 30
da(1, 10) = 31
da(1, 11) = 30
da(1, 12) = 31
da(2, 1) = 31
da(2, 2) = 28
da(2, 3) = 31
da(2, 4) = 30
da(2, 5) = 31
da(2, 6) = 30
da(2, 7) = 31
da(2, 8) = 31
da(2, 9) = 30
da(2, 10) = 31
da(2, 11) = 30
da(2, 12) = 31
da(3, 1) = 31
da(3, 2) = 28
da(3, 3) = 31
da(3, 4) = 30
da(3, 5) = 31
da(3, 6) = 30
da(3, 7) = 31
da(3, 8) = 31
da(3, 9) = 30
da(3, 10) = 31
da(3, 11) = 30
da(3, 12) = 31
tag1$(1) = "Montag"
tag1$(2) = "Dienstag"
tag1$(3) = "Mittwoch"
tag1$(4) = "Donnerstag"
tag1$(5) = "Freitag"
tag1$(6) = "Samstag"
tag1$(7) = "Sonntag"
tag$(0) = "Samstag"
tag$(1) = "Montag"
tag$(2) = "Dienstag"
tag$(3) = "Mittwoch"
tag$(4) = "Donnerstag"
tag$(5) = "Samstag"
tag$(6) = "Sonntag"
tag$(7) = "Montag"
tag$(8) = "Dienstag"
tag$(9) = "Donnerstag"
tag$(10) = "Freitag"
tag$(11) = "Samstag"
tag$(12) = "Sonntag"
tag$(13) = "Dienstag"
tag$(14) = "Mittwoch"
tag$(15) = "Donnerstag"
tag$(16) = "Freitag"
tag$(17) = "Sonntag"
tag$(18) = "Montag"
tag$(19) = "Dienstag"
tag$(20) = "Mittwoch"
tag$(21) = "Freitag"
tag$(22) = "Samstag"
tag$(23) = "Sonntag"
tag$(24) = "Montag"
tag$(25) = "Mittwoch"
tag$(26) = "Donnerstag"
tag$(27) = "Freitag"
tag$(28) = "Samstag"
tag$(29) = "Montag"
tag$(30) = "Dienstag"
tag$(31) = "Mittwoch"
tag$(32) = "Donnerstag"
tag$(33) = "Samstag"
tag$(34) = "Sonntag"
tag$(35) = "Montag"
tag$(36) = "Dienstag"
tag$(37) = "Donnerstag"
tag$(38) = "Freitag"
tag$(39) = "Samstag"
j1$ = Date
adress$ = ActiveWindow.RangeSelection.Address
adress1 = Len(adress$)
For mo = 1 To adress1
If Mid$(adress, mo, 1) = "$" Then
llp = llp + 1
Else
If llp = 1 Then
spalte$ = spalte$ + Mid$(adress, mo, 1)
End If
If llp = 2 Then
zeile$ = zeile$ + Mid$(adress, mo, 1)
zeile1 = Val(zeile$)
End If
End If
Next mo
If zeile1 = 1 And Range(spalte$ & zeile1) = "" Then zeile1 = zeile1 + 1
If Range(spalte$ & zeile1 - 1) <> "" Then
jj$ = Mid$(Range(spalte$ & zeile1 - 1), 1, 4)
If Mid$(Range(spalte$ & zeile1 - 1), 5, 1) = "1" Then ko = 1
If Mid$(Range(spalte$ & zeile1 - 1), 5, 1) = "2" Then ko = 2
If Mid$(Range(spalte$ & zeile1 - 1), 5, 1) = "3" Then ko = 3
zeile1 = zeile1 - 1
Else
zeile1 = zeile1 - 1
jj$ = Mid$(j1$, 7, 4)
End If
j1 = Val(jj$)
If j1 < 2040 And j1 > 1999 Then
j2 = j1 - 2000
j3 = 1
Do
If j2 < 4 Then
Exit Do
Else
j2 = j2 - 4
j3 = j3 + 1
j4 = j4 + 4
End If
Loop
If Range(spalte$ & zeile1) = "" Then zeile1 = zeile1 + 1
jk3$ = "0"
tz = 1
j4 = j4 + j2
For u = 1 To 7
If tag$(j4) = tag1$(u) Then tz1 = u
Next u
For t = 1 To 12
For t1 = 1 To da(j2, t)
If tz1 = 8 Then tz1 = 1
tt1$ = Str$(t1)
jk1 = Len(tt1$)
If Mid$(tt1$, 1, 1) = " " And jk1 = 2 Then tt1$ = jk3 + Mid$(tt1$, 2, 1)
If Mid$(tt1$, 1, 1) = " " And jk1 = 3 Then tt1$ = Mid$(tt1$, 2, 2)
tt2$ = Str$(t)
jk2 = Len(tt2$)
If Mid$(tt2$, 1, 1) = " " And jk2 = 2 Then tt2$ = jk3 + Mid$(tt2$, 2, 1)
If Mid$(tt2$, 1, 1) = " " And jk2 = 3 Then tt2$ = Mid$(tt2$, 2, 2)
If ko < 1 Then
Range(spalte$ & zeile1) = tt1$ + "." + tt2$ + "." + jj$ + " " + tag1$(tz1)
Else
If ko = 1 Then
If Len(tag1$(tz1)) < 11 Then
If tag1$(tz1) = "Montag" Then tag1$(tz1) = tag1$(tz1) + " "
If tag1$(tz1) = "Dienstag" Then tag1$(tz1) = tag1$(tz1) + " "
If tag1$(tz1) = "Mittwoch" Then tag1$(tz1) = tag1$(tz1) + " "
If tag1$(tz1) = "Freitag" Then tag1$(tz1) = tag1$(tz1) + " "
If tag1$(tz1) = "Samstag" Then tag1$(tz1) = tag1$(tz1) + " "
If tag1$(tz1) = "Sonntag" Then tag1$(tz1) = tag1$(tz1) + " "
End If
Range(spalte$ & zeile1) = tag1$(tz1) + " " + tt1$ + "." + tt2$ + "." + jj$
End If
If ko = 2 Then
Range(spalte$ & zeile1) = tt1$ + "." + tt2$ + "." + jj$
kl = Asc(spalte$)
Range(Chr$(kl + 1) & zeile1) = tag1$(tz1)
End If
If ko = 3 Then
Range(spalte$ & zeile1) = tag1$(tz1)
kl = Asc(spalte$)
Range(Chr$(kl + 1) & zeile1) = tt1$ + "." + tt2$ + "." + jj$
End If
End If
zeile1 = zeile1 + 1
tz1 = tz1 + 1
Next t1
Next t
End If
End Sub


Ich möchte kostenlos eine Frage an die Mitglieder stellen:


Ähnliche Themen:


Suche in allen vorhandenen Beiträgen: