Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
544to548
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
544to548
544to548
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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.

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

306 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige