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?
Private Sub Calendar1_Click()
UserForm1.Label1.Caption = KW(Calendar1.Value) & " Kalenderwoche"
End Sub
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