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

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

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige