Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Tag der Woche

Forumthread: Tag der Woche

Tag der Woche
13.01.2005 12:13:40
veltrup
Hallo
ich habe folgendes Problem:
Ich möchte Daten für eine bestimmte Kalenderwoche filtern und muß daher das Datum des ersten und letzten Tag der eingegebenen Woche rausfinden.
Die ganze Geschichte muß in VBA im Bezug auf UserForms umgesetzt werden.
Ich hoffe mir kann hier jemand dringend helfen.
Danke.
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Tag der Woche
13.01.2005 12:26:47
Josef
Hallo ? (realnames sind hier üblich und erwünscht!)
Aus dem Archiv!

Function DatumAusKW(KW As Long, Jahr As Long, WoTag As Long) As Date
Dim Datum As Date
If Jahr > 1900 And Jahr < 2100 And KW > 0 And KW < 54 And _
WoTag > 0 And WoTag < 8 Then
If WeekDay(DateSerial(Jahr, 1, 1), vbMonday) <= 4 Then
Datum = DateSerial(Jahr, 1, 1) - _
WeekDay(DateSerial(Jahr, 1, 1), vbMonday) + 1
Else
Datum = DateSerial(Jahr, 1, 1) - _
WeekDay(DateSerial(Jahr, 1, 1), vbMonday) + 8
End If
Datum = Datum + (7 * (KW - 1)) + (WoTag - 1)
If KW = 53 And _
Not (WeekDay(DateSerial(Jahr, 1, 1), vbMonday) = 4 Or _
WeekDay(DateSerial(Jahr, 12, 31), vbMonday) = 4) Then
Datum = ""
End If
Else
Datum = ""
End If
DatumAusKW = Datum
End Function

Gruß Sepp
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige