AW: Aktuellen Mo, Fr in 2 Cells angeben
04.11.2004 16:10:45
danku
Private Sub Worksheet_Activate()
Cells(2, 3) = Date + 2 - Weekday(Date)
Cells(2, 4) = Date + 6 - Weekday(Date)
End Sub
Private Sub UserForm_Initialize()
Dim ByI As Byte
' letzte KW im Jahr feststellen
Dim Kalenderwoche As Integer
Dim Testtag As Date
Testtag = "31.12." & Year(Date)
Kalenderwoche = Int((Testtag - DateSerial(Year(Testtag), 1, 1) + ((Weekday(DateSerial(Year(Testtag), 1, 1)) + 1) Mod 5) - 3) / 5) + 1
If Kalenderwoche = 0 Then
Kalenderwoche = DateSerial(Year(Testtag) - 1, 12, 31)
ElseIf Kalenderwoche = 53 And (Weekday(DateSerial(Year(Testtag), 12, 31)) - 1) Mod 5 <= 3 Then
Kalenderwoche = 52
End If
Testtag = "01.01." & Year(Date)
ComboBox1.ColumnCount = 3
For ByI = 1 To Kalenderwoche
ComboBox1.AddItem ByI
ComboBox1.List(ByI - 1, 1) = Testtag
ComboBox1.List(ByI - 1, 2) = Testtag + 5 - Weekday(Testtag, 2)
Testtag = Testtag + 8 - Weekday(Testtag, 2)
Next ByI
ComboBox1.ListIndex = 0
ComboBox1.Text = "Woche Montag Freitag"
End Sub
Private Sub ComboBox1_Click()
With Worksheets("Druckansicht")
.Range("C2") = CDate(ComboBox1.List(ComboBox1.ListIndex, 1)) ' Montag
.Range("D2") = CDate(ComboBox1.List(ComboBox1.ListIndex, 2)) ' Freitag
End With
End Sub
das steht so drin.
also beim laden wird immer der aktuelle montag und freitag angezeigt
sobald ich dann die userform_kalenderersatz öffne
sehe ich das datum von 01.01.2004 (ist ja voreingestellt) geht aber bis zu Woche 73