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"