Anzeige
Archiv - Navigation
388to392
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
388to392
388to392
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Arbeitswoche

Arbeitswoche
27.02.2004 14:52:51
Severin Hauser
Hallo
Ich kämpfe wiedermal mit einem idotischen Problem.
Wie bring ich Excel dazu anhand des aktuellen Datums, die Kalenderwoche und die Arbeitstage(Mo-Fr) auszugeben?
MfG
Severin

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

Betreff
Datum
Anwender
Anzeige
AW: Arbeitswoche
27.02.2004 15:35:55
Severin Hauser
hm jo nur wie komme ich auf die KW?
und ich suche eigentlich eher ein vba-lösung
AW: Arbeitswoche
27.02.2004 16:38:02
Ramses
Hallo
Irgendwas musst du ja haben, oder ?
Zumindest ein Datum, oder ein Jahr oder die KW.
Da gibt es diese Variante um die KW aus einem Datumswert zu berechnen

Function DIN_KWoche(Datum As String)
Dim tmpKW As Double
tmpKW = DateSerial(Year(DateValue(Datum) + (8 - Weekday(DateValue(Datum))) Mod 7 - 3), 1, 1)
DIN_KWoche = ((DateValue(Datum) - tmpKW - 3 + (Weekday(tmpKW) + 1) Mod 7)) \ 7 + 1
End Function

Damit kannst du die KW ausrechnen
Aus der KW und dem Jahr das Datum zu berechnen geht dann so:

Function First_Day_of_DINWeek(myYear As Integer, myKW As Integer) As Date
'by Ramses
First_Day_of_DINWeek = DateSerial(myYear, 1, 7 * myKW - 4 - Weekday(DateSerial(myYear, 1, 1)))
End Function

Aufzurufen über
Debug.Print First_Day_of_DINWeek(2004, 1)
und du erhältst das Datum des ersten Wochentages in der KW 1 des Jahres 2004
Gruss Rainer

"...und ich suche eigentlich eher ein vba-lösung.."
Davon hast du nichts gesagt.
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige