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

Kalenderwoche in VBA

Kalenderwoche in VBA
14.10.2004 11:48:07
Ron Andres
Hallo,
kann ich in VBA die Kalenderwochen-Funktion benutzen. Wenn ja, wie?
Gruß Ron

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

Betreff
Datum
Anwender
Anzeige
AW: Kalenderwoche in VBA
14.10.2004 12:05:32
Werner
Hallo Ron,

Sub Kalenderwoche()
Dim KW
KW = Format(Now, "ww", vbMonday)
MsgBox KW
End Sub

Werner
AW: Kalenderwoche in VBA
14.10.2004 12:09:56
Ron Andres
Danke, funktioniert!
AW: Kalenderwoche in VBA
14.10.2004 12:20:29
Uduuh
Hallo,
dann hast du allerdings eine Amerikanische Woche und nicht die KW nach DIN.

Function DINKW(Datum)
' Kalenderwoche nach DIN
Dim tmp
tmp = DateSerial(Year(Datum + (8 - Weekday(Datum)) Mod 7 - 3), 1, 1)
DINKW = ((Datum - tmp - 3 + (Weekday(tmp) + 1) Mod 7)) \ 7 + 1
End Function

Gruß aus'm Pott
Udo
AW: Kalenderwoche in VBA
14.10.2004 13:16:19
andre
Hallo Werner,
nehmt bei Format die vbFirstFourDays noch mit dazu. Ich weiß nicht genau, was Standard ist - sicher ist sicher ...
Anzeige

299 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige