Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
388to392
388to392
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Arbeitswoche

Forumthread: 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
Anzeige

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)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
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