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

Datum von/bis ermitteln nach Eingabe der KW

Datum von/bis ermitteln nach Eingabe der KW
17.07.2003 08:09:06
Martin Glarner
Hallo zusammen,
Ich habe folgende Aufgabe zu lösen:
Nachdem der Benutzer die Kalenderwoche(1..52) und das Jahr eingegeben hat, muss ich mit einem VBA-Script das Anfangs- und Enddatum dieser Woche ermitteln.
Für die Dateneingabe werde ich eine Userform erstellen. Dies ist kein Problem, doch wie berechne ich die beiden Datum ?
Datum_1 = (Akt_KW ???? Akt_Jahr)
Datum_2 = (Akt_KW ???? Akt_Jahr)
Besten Dank für Eure Hilfe
Gruss Martin

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datum von/bis ermitteln nach Eingabe der KW
17.07.2003 08:38:31
galenzo
Hallo,
bei meinen Veruschen ist diese Funktion herausgekommen,
die aber sicherlich noch optimiert werden kann:
(hier: Jahr in B2, Kalenderwoche in A2)
Datum_1: =DATUM(B2;1;1)-5-WOCHENTAG(DATUM(B2;1;1))+(7*(A2))
Datum_2: =Datum_1+6

AW: Datum von/bis ermitteln nach Eingabe der KW
17.07.2003 08:53:27
Martin Glarner
Hallo,
Besten Dank für Deine Hilfe.
Funktioniert das auch mit einem Script in VBA ?
Gruss Martin

AW: Datum von/bis ermitteln nach Eingabe der KW
17.07.2003 09:06:19
galenzo

Function ErstesDatumKW(Kw As Single, jahr As Single) As Date
Dim d
d = DateSerial(jahr, 1, 1)
ErstesDatumKW = d - 5 - Weekday(d) + (7 * (Kw))
End Function


AW: Datum von/bis ermitteln nach Eingabe der KW
17.07.2003 11:28:54
Martin Glarner
Hallo galenzo
Herzlichen Dank für Deine Hilfe
Gruss Martin

Anzeige

315 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige