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

Code mit KW

Forumthread: Code mit KW

Code mit KW
04.01.2005 18:11:58
Erich
Hallo Exceprofis,
habe ein problem mit meiner KW funktion, sie berechnet als KW die 0 statt die KW1 was muss ich in ´meinen code ändern.
Function KALENDERWOCHE_DIN(Datum As Date) As Integer Dim t& t = DateSerial(Year(Datum + (8 - Weekday(Datum)) Mod 7 - 3), 1, 1) KALENDERWOCHE_DIN = (Datum - t - 3 + (Weekday(t) + 1) Mod 7) \ 7 / 1 End Function
für eure hilfe wäre ich sehr dankbar!
gruß
erich
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Code mit KW
=Peter=
Hallo Erich,
versuchs damit:
Function DIN_KW(Datum As Date) As Integer ' von Christoph Kremer, Aachen Dim t& t = DateSerial(Year(Datum + (8 - Weekday(Datum)) Mod 7 - 3), 1, 1) DIN_KW = (Datum - t - 3 + (Weekday(t) + 1) Mod 7) \ 7 + 1 End Function
HTH
Gruss
Peter
Danke oT
04.01.2005 18:39:08
erich
Hallo Peter
Danke für deine Hilfe, super!!!!
gruß
erich
Anzeige
AW: Danke oT
Ramses
Hallo
"...super!!!!.."
Hast du die Funktion schon ausprobiert ;-)
Das ist die gleiche wie deine nur das anstelle von "/" ein "+" drinsteht.
Das tut dem Ergebnis aber leider auch keinen Abbruch :-)
Gruss Rainer
AW: Code mit KW
Ramses
Hallo
Tja,... nicht alles DIN ist richtig :-)
Tabelle1
 ABCD
101.01.20055253 
201.01.20065152 
301.01.200701 
401.01.200801 
501.01.200901 
601.01.20105253 
7    
Formeln der Tabelle
B1 : =kalenderwoche_din(A1)
C1 : =din_kw(A1)
B2 : =kalenderwoche_din(A2)
C2 : =din_kw(A2)
B3 : =kalenderwoche_din(A3)
C3 : =din_kw(A3)
B4 : =kalenderwoche_din(A4)
C4 : =din_kw(A4)
B5 : =kalenderwoche_din(A5)
C5 : =din_kw(A5)
B6 : =kalenderwoche_din(A6)
C6 : =din_kw(A6)
 
Excel Tabellen einfach im Web darstellen    Excel Jeanie HTML  3.0    Download  

Function DIN_KW(Datum As Date) As Integer
'von Pedor
Dim KW As Date
KW = 4 + Datum - Weekday(Datum, 2)
DIN_KW = (KW - DateSerial(Year(KW), 1, -6)) \ 7
End Function

Gruss Rainer
Anzeige
Danke
04.01.2005 18:44:37
Erich
Hallo Rainer,
danke für deine hilfe und erklärung,
gruß
erich
;

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