Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
132to136
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
132to136
132to136
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

n-ter Wochentag im Monat

n-ter Wochentag im Monat
04.07.2002 20:45:06
MAlexander
Moin, Forum.

Zunächst Formales:
Ich wechsle von "Max" (= Michael AleXander) zu "MAlexander", da es hier zu viele "Mäxe" gibt.

Hat sich jemand von Euch schon mal mit dem n-ten Wochentag innerhalb eines Monats beschäftigt ?
Ich meine damit z.B.: 3. Samstag im Oktober 2002 usw.

Wäre klasse, wenn Ihr schon eine Lösung hättet.
Ansonsten würde ich die Sache jetzt in Angriff nehmen - dann wird sie aber auch hier publiziert.

Die Idee ist mir in Anlehnung an die Frage von Andreas B. nach dem letzten Sonntag im März gekommen.
Meine Lösung sieht so aus:
Man übergibt einfach ein beliebiges Datum aus dem Monat, dessen letzten Wochentag man ermitteln will, zusammen mit dem
gewünschten Wochentag:
Mittwoch = GetLastWeekdayOfMonth("03.10.2002", vbWednesday)

Jede Kritik ist gewünscht.

Danke Euch schon mal im voraus.

MAX

Hier die Routine:

Function GetLastWeekdayOfMonth(Datum, Wochentag) As Date

Dim d As Date
Dim Ultimo As Date
Dim Testdatum As Date

d = CDate(Datum)

Ultimo = DateSerial(Year(d), Month(d) + 1, 0)
Testdatum = Ultimo - Weekday(Ultimo) + Wochentag

If (Month(Testdatum) > Month(d)) Then
GetLastWeekdayOfMonth = Testdatum - 7
Else
GetLastWeekdayOfMonth = Testdatum
End If

End Function

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: n-ter Wochentag im Monat
04.07.2002 21:23:48
Sigi E.
Hallo Max,

sowas hab' ich mal gemacht. Vermutlich geht's auch einfacher aber
es funktioniert:

Gruß
Sigi

Re: n-ter Wochentag im Monat
04.07.2002 22:18:49
MAlexander
Moin, Sigi E.

Erstmal Danke für die schnelle Reaktion, obwohl: so dringlich ist das Problem nicht.

Ich habe mir Deine Routine mal kopiert und komme in den nächsten Tagen wieder zurück, nachdem ich wirklich hingeguckt
habe.

So'ne Grund-Idee hilft .

Finde ich was wirklich Gutes, dann wird dies hier auch veröffentlicht.

MAX

Re: n-ter Wochentag im Monat
05.07.2002 13:13:09
Coach
Hallo,

es geht auch ganz ohne VBA mit folgender Arrayformel (Eingabe mit Strg+Shift+Enter):
=KKLEINSTE(WENN((MONAT(A1)=MONAT(A1+ZEILE($1:$31)-1))*(WOCHENTAG(A1+ZEILE($1:$31)-1;2)=B1);A1+ZEILE($1:$31)-1);C1)

dabei steht in A1 das Datum des Monatsanfangs, in B1 der gewünschte Wochentag (1 für Montag, 7 für Sonntag) und in C1 das x-te Vorkommen.

Gruß Coach

Anzeige

305 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige