Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
164to168
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
164to168
164to168
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Freitag, der 13.

Freitag, der 13.
30.09.2002 09:36:24
Pamel
Hey,

bei excelformeln.de habe ich eine Formel gefunden, mit der man "Freitag, den 13." ermitteln kann ({=KKLEINSTE(WENN(((WOCHENTAG(HEUTE()+ZEILE($1:$10000);2)=$C$1)*(TAG(HEUTE()+ZEILE($1:$10000))=$C$2))=1;HEUTE()+ZEILE($1:$10000));ZEILE())}).

Ich habe dann HEUTE() durch mein Geburtsdatum ersetzt, und wollte ermitteln, wieviele Fr13. ich schon erlebt habe (bin am Fr13. 13 geworden).

Mit der obigen bzw. mit meiner Formel passiert es, dass am der 48. Zeile nur noch #ZAHL! ausgegeben wird. Woran kann das liegen?

Ich möchte gerne alle Fr13. ermitteln.

Viele Grüße

Pampel

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Freitag, der 13.
30.09.2002 09:45:48
JürgenR
Hi Pampel,

mal ganz indiskret: In welchem Jahr bist du denn geboren? Mit der Formel werden die nächsten 10.000 Tage geprüft, also ca. 27 Jahre. Wenn du älter bist, musst du die $10000 eben erhöhen (überall in der Formel), aber nicht wundern, die Rechenzeit nimmt natürlich zu, denn im alter ist man je nicht mehr so schnell :-)

Gruß
Jürgen

Re: Freitag, der 13.
30.09.2002 10:01:36
Pampel
Hallo Jürgen,

196x mit x=4.

Es ist aber egal, mit welchem Datum man anfängt (HEUTE() oder mit meinem Geburtstag. Ab der 48. Zeile kommt IMMER die Fehlermeldung #ZAHL!. Den Bereich ZEILE($1:$10000) habe ich nicht verändert.

Es ist auch nicht wirklich wichtig, hab' mich halt nur gefragt, wieso das so ist.

Pampel

Anzeige
Re: Freitag, der 13.
30.09.2002 12:12:58
Muse
Hallo Pampel,

wie wärs mit folgender Funktion:

Function freitag13(anfang As Date, ende As Date)
Dim Tag As Date
freitag13 = 0
For Tag = anfang To ende
If Day(Tag) = 13 And WeekDay(Tag) = 6 Then freitag13 = freitag13 + 1
Next
End Function


Viele Grüße

Muse

Re: Freitag, der 13.
30.09.2002 12:16:45
Martin Beck
Hallo,

=HEUTE()+ZEILE($1:$10000) ergibt für den Maximalwert 10000 das Datum 15.02.2030. Bis dahin werden die Freitage der 13. aufgelistet. Es werden genau 47 solcher Tage gefunden. In Zeile 48 wird dann die KKLEINSTE-Funktion aufgefordert den 48.-kleinsten Wet aus einer Reihe von 47 Werten zu leifern, und das geht eben nicht.

Wenn Du statt 10000 20000 nimmst, findet die Formel 94 Freitag der 13. (bis 13. April 2057).

Gruß
Martin Beck

Anzeige
Re: Freitag, der 13.
30.09.2002 13:13:53
Matthias
hallo martin

wer lesen kann und das gelesene richtig interpretieren kann ist klar im vorteil.

*peinlich*

danke für den hinweis.

matthias

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige