Kalenderwoche

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: Kalenderwoche von: tino
Geschrieben am: 14.03.2005 12:01:37

Hallo,

möchte in einem VBA Befehl eine Kalenderwoche aus einem Datum erzeugen.

Bsp.
Range("a1") = Kalenderwoche(range("a2"))

Kalenderwoche geht aber nicht, wie muss es heißen?

Bild


Betrifft: AW: Kalenderwoche von: loe
Geschrieben am: 14.03.2005 12:09:48

Hallo


Private Sub Calendar1_Click()
    UserForm1.Label1.Caption = KW(Calendar1.Value) & " Kalenderwoche"
End Sub


Function KW(d As Date) As Integer
t = DateSerial(Year(d + (8 - Weekday(d)) Mod 7 - 3), 1, 1)
KW = (d - t - 3 + (Weekday(t) + 1) Mod 7) \ 7 + 1
End Function


Private Sub CommandButton1_Click()
 ActiveCell.Value = UserForm1.Calendar1.Value
 ActiveCell.Offset(0, 1).Value = UserForm1.Label1.Caption
End Sub



Private Sub CommandButton2_Click()
Unload Me
End Sub



Private Sub UserForm_Activate()
    Call Calendar1_Click
End Sub



Private Sub UserForm_Initialize()
UserForm1.Calendar1.Year = Year(Date)
UserForm1.Calendar1.Month = Month(Date)
UserForm1.Calendar1.Day = Day(Date)
UserForm1.Label1.Font.Bold = True
UserForm1.Label1.ForeColor = RGB(255, 0, 0)
End Sub



Gruß
loe


Bild


Betrifft: AW: Kalenderwoche von: tino
Geschrieben am: 14.03.2005 15:15:56

Danke hat funktioniert!


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Kalenderwoche"